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PREFACE 


report  documents  the  creation  and  use  ci  the  Student 
Mi>:  Software  System  (SMSS)  for  the  Z“120  personal  computer. 
SMSS  is  used  at  the  Air  Command  and  Staff  College  (ACSC)  to 
assign  students  to  seminars  based  on  user  selected  rules,  and 
to  prepare  the  required  output  reports.  SMSS  reduces  the  time 
required  to  produce  a  new  mix  of  students  from  10  days  to  30 
minutes,  and  eliminates  80%  of  the  manual  student  reassign— 
ments  required  by  the  old  semi  automated  system.  The  SMSS  is 
so  successful  that  it  is  already  in  operation;  it  was  used  to 
generate  the  third  mix  student  assignments  for  ACSC  class  of 
1986. 


The  authors  wish  to  publicly  acknowledge  the  assistance 
and  support  of  many  people  who  patiently  answered  questions 
and  explained  the  mix  process.  Special  thanks  and  recognition 
is  given  to  Major  Rusty  Romer ,  USAF,  who  provided  the  inspira¬ 
tion  and  explanations  that  led  to  the  finalization  of  the  mix 
rules.  Additionally,  we  thank  Major  Ed  Williams,  USAF,  who 
provided  expert  guidance,  motivation,  advice,  feedback  and 
served  as  the  ACSC  advisor  for  this  project. 


Anticipating  the  possible  use  by  other  Air  University 
school  i,  the  SMS  was  designed  to  be  flexible  and  to  provide 
the  user  with  the  ability  to  customize  the  system. 
Consequently,  a  copy  of  the  software  may  be  obtained  by  order — 
ing  the  Student  Mix  Software  System  (SMSS)  from  Air  Command 
and  Staff  College,  EDO  Student  Mixer,  Maxwell  AFB,  A1  ,  36112- 
5364.  Requester  must  provide  a  5  1/4",  double  sided,  double 
density  disk. 


This  research  project  is  submitted  to  simplify  a  process 
that  is  key  to  the  learning  of  all  students  at  Air  University, 
that  of  the  seminar  mix.  We  sincerely  hope  that  future  classes 
will  benefit  from  the  balanced  seminars  which  the  SMSS  is 
designed  to  produce. 
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Chapter  Ona 


THE  STUDENT  MIXING  PROBLEM 


Mixing  students  «t  the  Air  Commend  end  Stef-f  College 
(ACSC)  and  assigning  them  to  wings  and  seminars  does  not  seem 
like  a  terribly  di-f'flcult  task.  A'fter  ell,  how  difficult  can 
it  be  to  divide  approximately  S6S  students  into  44  seminars 
— you  Just  randomly  assign  them,  right?  Unfortunately,  it  is 
not  quite  that  simple,  there  are  many  rules  that  must  be 
considered  before  the  first  student  is  assigned. 

The  basic  idea  behind  these  rules  is  to  provide  a  wide 
range  of  experience  for  each  seminar  so  that  the  students  can 
be  exposed  to  new  and  different  ideas,  cultures,  career 
fields,  and  sister  services.  To  do  this,  minority  students, 
females,  rated  personnel,  and  students  from  different 
components  need  to  be  equally  distributed  throughout  the 
student  body.  To  insure  that  they  have  the  opportunity  to 
meet  new  people  and  make  new  friends  and  career  contacts, 
students  are  not  allowed  to  be  assigned  to  seminars  with  more 
than  one  student  with  whom  they  have  already  served.  To 
expand  the  number  of  faculty  instructors  who  have  the 
opportunity  to  rate  each  individual,  the  students  are 
reassigned  to  different  seminars  each  mix.  Since  the  students 
present  a  major  portion  of  the  lessons  and  lead  the  seminars, 
it  is  also  Important  to  provide  individuals  to  each  seminar 
who  have  experience  in  the  areas  being  studied  such  as  staff 
communications!  the  Planning,  Programming  and  Budgeting  System 
(PPB8)|  acquisition  and  logistics!  strategic  operations!  and 
tactical  operations.  There  are  also  special  rules  that  apply 
to  international  officers  (Id’s),  and  to  part  time  students 
like  the  Squadron  Officers  School  (SOS)  staff,  and  Associate 
Research  Institute  (ARI)  students.  Obviously,  a  proper 
student  mix  requires  the  consideration  of  many  factors. 

All  of  these  factors  combine  to  make  the  mixing  of 
students  a  difficult  and  time  consuming  task — especially  by 
mix  three  when  several  of  the  rules  have  a  chance  to  conflict 
with  each  other,  and  some  of  the  seminars  are  deleted  due  to 
the  departure  of  the  10’ s  and  the  reassignment  of  some  faculty 
members.  Nor  is  the  job  over  when  the  students  are  mixed! 


reports  must  still  be  generated  for  the  wing  chiefs,  and 
faculty  instructors.  Other  reports,  containing  information  on 
the  class  composition,  are  required  by  Air  University. 

According  to  the  sponsor  of  this  project,  the  ACSC  mix 
master,  the  old  Seminar  Automatic  Mixer  (SAM)  system  on  the 
Honeywell  computer  at  Gunter  AFS,  was  slow  (seven  to  ten  day 
turnaround);  cumbersome  (difficult  to  get  any  changes  made); 
and  unresponsive  (it  violated  most  of  the  rules  currently 
required  for  a  good  mix).  The  output  from  the  Honeywell 
normally  required  extensive  reworking  by  the  school  mix  master 
and  by  the  wing  mix  masters  involving  approximately  two  weeks 
of  manual  work  for  each  mix.  It  also  took  nearly  two  months, 
before  the  school  began,  for  the  school  mix  master  to  obtain 
the  student  data,  process  it  by  hand,  manually  enter  it  into 
the  system,  and  produce  the  initial  reports.  To  try  and 
reduce  the  work  load  from  this  semi automated  mixing  svstem, 
the  mix  master  requested  an  ACSC  student  project  to  see  if  a 
software  system  could  be  created  for  the  Z-120  personal 
computers  at  the  Air  Command  and  Staff  College  to  efficiently 
mix  the  students  and  produce  the  required  reports.  The  result 
of  this  student  project  was  the  Student  Mix  Software  System 
(SMSS) . 


DEIEBtJIbllUC-IUE-SaSS-BEQUIBECIEMIS 

To  determine  the  personnel  factors  required  to  properly 
mix  the  students,  the  ACSC  mix  master  was  repeatedly 
interviewed  on  existing  AU/ACSC  practices  and  policies.  As  a 
result  of  these  interviews,  we  developed  five  hand  written 
pages  of  rules,  heuristics,  and  desired  factors  to  be  used  in 
mixing  the  students  and  selecting  class  leaders.  This 
Information  was  supplemented  by  reviewing  the  related  Air 
University  and  Air  Command  tc  Staff  College  regulations  dealing 
with  seminar  organization,  rank,  and  procedures.  The 
resulting  rules  and  personnel  factors  were  then  used  as  the 
basis  on  which  SMSS  was  built.  Before  deciding  to  build  a  new 
software  system  completely  from  scratch,  the  old  coda  from  the 
Honeywell  system  was  examined. 

The  authors  reviewed  the  program  code  from  the  Honeywell 
to  see  if  it  could  be  used  or  modified  to  obtain  the  desired 
results.  Unfortunately,  this  code  was  designed  for  a  batch 
system  and  lacked  any  user  ini.erfaces  or  error  checking 
procedures.  The  code  was  also  extremely  limited  in  scope  and 
was  not  flexible  enough  to  adapt  to  the  many  rules  and 
restrictions  needed  for  a  good  rnix.  The  decision  was 
consequently  made  to  start  from  scratch  and  write  a  completely 
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new  so-ftware  system,  starting  with  the  selection  of  the 
necessary  software  tools. 

The  decision  on  the  software  support  tools  to  be  used  in 
creating  and  supporting  SMSS  was  constrained  by  the  nature  of 
the  hardware  on  which  SHSS  was  intended  to  operate.  The  ACSC 
mix  master's  Z-120  was  equipped  with  2S6KB  of  memory,  a  10  MB 
hard  disk,  the  MS-DOS  operating  system,  and  the  CONDOR 
Relational  Data  Base  Management  System  (DBMS).  The  Z-120  was 
also  equipped  with  the  MICROSOFT  FORTRAN,  COBOL,  interpreted 
ZBASIC,  and  the  compiled  ZBASIC  programming  languages.  A 
review  of  the  CONDOR  DBMS  by  the  authors  found  that  it  was 
able  to  provide  all  of  the  basic  functions  needed  by  SMSS  with 
the  exception  of  direct  calls  to  separate  executable 
subroutines.  Because  of  CONDOR’S  general  suitability,  the 
long  lead  time  required  to  obtain  a  new  DBMS,  and  the  time 
constraints  of  this  project,  the  decision  was  made  to  continue 
using  CONDOR.  A  review  of  the  programming  languages' avai lable, 
resulted  in  the  decision  to  use  ZBASIC.  ZBASIC  had  several 
advantages  over  FORTRAN  and  COBOL.  The  interpreted  ZBASIC 
simplified  debugging  and  program  development  with  its 
interactive  support  environment.  Once  the  programs  were 
developed  and  debugged  they  could  be  compiled  to  gain  the 
advantage  of  faster  execution  and  smaller  memory  requirements. 
The  memory  constraint  was  one  of  the  major  reasons  for  not 
using  COBOL  as  the  SMSS  programming  language.  While  COBOL  is 
an  excellent  language  for  file  manipulation  and  report 
generation,  its  large  memory  requirements  made  it  unsuitable 
for  SMSS  with  its  extensive  code  requirements  and  with  the 
Z-120  which  had  only  2S6KB  of  memory.  FORTRAN  was  considered 
for  the  development  of  the  mixing  algorithm,  but  its  limited 
character  string  and  file  manipulation  facilities  made  it 
unsuitable  for  SMSS  with  its  interactive  user  requirements. 
Consequently,  the  final  support  tools  selected  for  SMSS  were 
the  MICROSOFT  ZBASIC  programming  language  and  the  CONDOR  DBMS. 


DESIQbilbJG-SaSS 

After  determining  the  mixing  constraints  and  selecting 
the  support  tools,  an  interactive  user  prototype  of  SMSS  was 
built  using  ZBASIC  and  CONDOR.  This  prototype  permitted  the 
ACSC  mix  master  to  see  exactly  what  he  would  be  using,  and 
permitted  him  to  run  through  the  menus  and  display  screens. 
As  a  result  of  his  interaction  with  the  prototype,  he  changed 
several  of  his  criteria,  and  asked  for  additional  information 
to  be  displayed  in  SMSS.  The  prototype  formed  the  basis  for 
the  final  development  and  coding  of  SMSS  and  permitted 
misunderstandings  to  be  worked  out  before  extensive  coding  was 


complatcd.  It  clso  permitted  the  user  to  refine  his 
requirements  and  to  contribute  to  the  overall  system  design. 

The  SMSS  hardcopy  report  requirements  were  determined  by 
reviewing  the  AC5C  Supplement  to  Air  University  Regulation 
171-1,  Student  Statistical  Reporting;  by  examining  all  current 
reports;  and  by  interviewing  the  ACSC  mix  master  about 
additional  reports  that  might  be  needed.  The  report 
facilities  of  CONDOR  were  selected  to  generate  these  alpha  and 
statistical  reports  since  the  user  facilities  in  CONDOR 
minimized  the  amount  of  new  code  required. 

This  chapter  introduced  the  problems  which  SMSS  was 
designed  to  solve,  and  the  basic  methodology  used  In 
researching  and  designing  SMSS.  Chapter  two  provides  an  SMSS 
system  overview  describing  the  hardware  and  software 
environments  and  the  information  flow  between  the  different 
data  files  and  the  various  programs  or  CONDOR  command  files. 
Chapters  three  through  five  provide  the  user  with  guidance  on 
how  to  run  the  preprocessing  (data  preparation),  mixing,  and 
post  processing  (report  generation)  programs.  Finally, 
chapter  six  provides  conclusions  about  SMSS,  how  well  it 
operates  in  comparison  to  the  old  system,  and  what 
improvements  could  be  made  to  SMSS  to  make  it  better. 
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Chapter  Two 


SYSTEH  OVERVIEW 

The  Student  Mix  Software  Syeten  (SMSS)  gives  the  user  the 
capability  to  automatically  create  a  mix  of  students  that  fits 
a  set  of  user  definable  criteria.  Additionally,  the  user 
retains  the  option  to  selectively  override  the  assignments 
creal'.ed  by  SMSS.  This  capability  is  provided  by  a  package  of 
computer  hardware,  software,  and  procedures.  This  chapter  will 
describe  the  hardware  and  software  needed  to  execute  the  sys¬ 
tem  and  explain  the  information  flow  throughout  the  input, 
prep''ocessing,  mixing,  and  post  processing  phases  of  the 
system.  Subsequent  chapters  will  describe  specific  software 
components  and  user  actions.  Prior  to  describing  the  four 
phases,  a  brief  description  of  the  hardware  and  software  en¬ 
vironment  is  in  order. 


HARDWARE 

The  Z-120  personal  computer  is  in  wide  use  throughout  the 
Air  Force,  particularly  Air  University,  and  possesses  sig¬ 
nificant  computing  capability.  Consequently,  the  SMSS  is 
designed  to  operate  within  this  capability.  The  specific  con¬ 
figuration  includes  a  10  megabyte  hard  disk,  a  132  column 
printer,  and  256KB  of  internal  random  access  memory.  This 
hardware  is  the  minimum  set  needed  to  execute  the  SMSS  sup- 
pvirt  software  packages. 


SOFTWARE 

The  SMSS  is  designed  to  make  extensive  use  of  existing 
software  packages.  Consequently,  it  only  executes  with  the 
support  of  the  CONDOR  III  Relational  Data  Base  Management  Sys¬ 
tem  and  the  popular  MS-DOS  operating  system.  In  addition  to 
these  packages,  the  ZBASIC  programming  language  is  used  to 
create  the  mix  routine.  Therefore,  to  maintain  or  modify  the 
current  system,  the  ZBASIC  compiler  and  related  support 
software  is  needed.  This  brief  description  of  the  supporting 
software  reveals  that  the  SMSS  is  a  combination  of  computer 
programs  that  have  been  linked  together  to  provide  the  user 
with  a  flexible,  convenient  system. 


PHASE  DESCRIPTION 


The  linkage  and  relationship  o-f  the  four  SMSS  phases  (see 
figure  1.)  can  best  be  described  from  the  user’s  viewpoint.  In 
the  input  phase,  the  user  will  enter  the  student  data  into  the 
CONDOR  system  and  create  the  OMEGA  and  BETA  data  bases.  After 
this  phase  is  complete,  the  user  will  select,  prepare,  and 
pass  the  data  to  the  mix  routine.  The  mix  phase  will  prompt 
the  user  to  select  the  mix  criteria  and  will  assign  the  stu¬ 
dents  to  seminars.  The  final  phase  allows  the  user  to  view  the 
assignment  and  make  any  desired  changes.  Additionally,  reports 
will  be  prepared  for  distribution.  As  we  discuss  each  phase, 
the  purpose  will  be  identified  and  a  description  of  support 
software  will  be  included. 


INPUT  PHASE 


The  input  phase  (see  -figure  2)  uses  the  general  capabilities 
o-f  CONDOR  III.  By  utilizing  this  data  base  management  system, 
a  -flexible  input  capability  has  been  provided  for  the  user. 


Figure  2-  Input  Phase 
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Purpose 


The  purpose  oT  the  input  phase  is  to  insert  the  student 
data  into  two  CONDOR  data  bases.  The  first  data  base  is  named 
OMEGA  and  is  designed  to  contain  key  personnel  and  class  as¬ 
signment  information  on  students  attending  Air  Command  and 
Staff  College.  The  second  data  base  is  named  BETA  and  con¬ 
tains  personnel  data  that  must  be  reviewed  and  updated  to  ac¬ 
curately  reflect  student  skills  or  characteristics. 

Description 

The  input  phase,  through  the  basic  capabilities  of 
CONDOR,  places  data  in  a  data  base  either  manually  (via  the 
ENTER  command)  or  by  reading  a  file  (via  the  READ  command). 
For  additional  information  on  these  commands,  see  the  CONDOR 
user  manual.  The  information  placed  in  the  OMEGA  data  base  is 
of  critical  importance  to  the  entire  process  and  must  adhere 
to  the  values  identified  in  appendix  A.  Upon  the  completion 
of  the  input  phase,  all  students  attending  ACSC  and  their  per¬ 
sonnel  data  will  be  loaded  and  confirmed  as  correct  by  the 
user.  Additionally,  the  specific  skill  data  must  be  entered 
into  the  BETA  file.  When  these  actions  are  completed  the  in¬ 
put  phase  is  complete  and  we  are  ready  for  the  preprocessing 
phase. 


Preprocessing  Phase 

The  preprocessing  phase  (see  figure  3)  makes  extensive 
use  of  CONDOR’S  advanced  capabilities  to  minimize  the  user’s 
involvement.  These  capabilities  present  the  user  with  help 
screens  to  provide  a  road  map  through  the  process  and  rely 
heavily  upon  command  files  (a  sequence  of  previously 
programmed  commands)  to  generate  the  correct  data. 

Purpose 

The  purpose  of  the  preprocessing  phase  is  to  create  a 
repeatable,  consistent,  and  simplified  version  of  student  data 
that  can  be  transferred  to  the  mix  process.  Additionally,  it 
creates  the  interface  file  between  CONDOR  and  the  mix  process. 

Description 

The  overall  process  extracts  student  data  from  the  OMEGA 
file,  simplifies  the  data,  and  prepares  the  data  for  the  mix 
routine.  The  phase  begins  by  extracting  key  student  data  from 
the  OMEGA  file  and  storing  the  information  in  a  temporary  file 
called  TESTl. 


Figure  8.  PiepiocesBing  Pbase 


Since  the  mi  >:  process  expects  a  simplified  version  of  the 
data,  a  series  of  one  character  yes/no  fields  must  be  added  to 
each  record.  This  is  accomplished  by  reorganizing  the  TEST 1 
data  base.  After  adding  the  additional  fields,  the  records  are 
examined  and  the  critical  parameters  are  computed  and  stored 
in  the  newly  created  fields.  The  file  is  then  read  into  a 
file  called  TEST2  and  sorted  by  date  of  rank. 

The  next  step  in  the  preprocessing  phase  is  to  strip  out 
redundant  information.  This  reduction  is  accomplished  by 
projecting  the  key  mixing  criteria  from  TEST2  into  a  file 
called  CINTER.  At  this  point,  special  student  skill  data  in 
the  BETA  file  is  added  to  CINTER  by  CONDOR’S  post  process. 
The  final  step  in  this  phase  writes  the  interface  file 
BA5ICIF.  This  file  is  written  in  a  form  that  can  be  easily 
read  by  the  mixing  routine. 


Mixing  Phase 

The  mixing  phase  (see  figure  4)  of  the  system  is  the 
heart  of  the  process.  The  complexity  of  the  routine  is  beyond 
the  scope  of  CONDOR’S  capability,  so  a  special  routine  com¬ 
piled  in  ZBASIC  has  been  created. 

Purpose 

The  purpose  of  the  mix  routine  is  to  assign  students  to 
classes  or  seminars.  based  upon  user  selectable  criteria. 
Through  the  user  set  criteria,  various  skills  and  backgrounds 
can  be  emphasized,  and  students  with  these  skills  can  be 
evenly  distributed. 

Description 

The  mix  phase  first  prompts  the  operator  to  select  the 
criteria  and  the  mix  to  be  assigned.  Based  upon  this 
information,  the  student  file  is  read  and  the  total  number  of 
students  possessing  the  selected  criteria  tabulated.  Next, 
the  seminar  leaders  and  assistant  seminar  leaders  are 
assigned.  If  it  is  the  first  mix,  the  class  commander  and 
senior  ranking  officer  for  each  wing  are  selected.  The  next 
step  is  to  assign  students  to  the  various  classes  or  seminars, 
based  upon  the  criteria.  The  goal  of  the  assignment  algorithm 
is  to  equally  distribute  the  critical  skills  within  limita¬ 
tions  of  specific  rules.  After  completing  the  assignment,  a 
summary  report  is  created  which  displays  the  number  of  stu¬ 
dents  possessing  the  selected  characteristics  by  seminar. 
Finally,  the  results  are  written  to  BASICOT.  At  this  point, 
the  post  processing  and  report  generation  phase  begins. 


1’.- 


Post  Processing  and  Report  Generation  Phase 

This  phase  (see  figure  5)  is  the  last  phase  and  uses  the 
capability  of  CONDOR  to  produce  the  report  documents. 


Figure  5.  Post  Processing  Phase 
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Purpose 


The  purpose  of  the  last  phase  is  to  review  and  manually 
modify  any  assignments,  finalize  the  assignments,  and  to  gen¬ 
erate  reports  for  distribution. 

Description 

The  first  task  is  to  read  student  records,  including 
their  seminar  assignment  data,  from  the  BASICOT  file  back  to 
CINTER.  This  action  brings  the  mix  assignment  data  back  into 
CONDOR  for  subsequent  processing.  The  next  step  updates  ONEGA 
with  the  tentative  assignment  information.  The  user  has  the 
option  to  select  seven  different  report  formats.  After  a 
review  of  the  data,  the  user  can  change  the  ONEGA  data  base 
by  utilizing  CONDOR’S  UPDATE  command.  At  this  point,  the 
responsibility  to  maintain  skill  balance  is  completely  con¬ 
trolled  by  the  user.  Once  the  user  is  satisfied  with  the 
assignments,  a  final  set  of  reports  can  be  run  and  the  final 
assignments  transferred  to  the  CINTER  data  base.  This  last 
step  will  enable  mix  two  and  subsequent  mix  processing  to  skip 
the  preprocessing  phase. 

The  system  overview  was  designed  to  give  a  user  a  brief 
description  of  the  Student  Mix  Software  System.  The  descrip¬ 
tion  followed  the  input,  process,  and  output  steps  that  are 
inherit  in  all  automated  systems.  As  the  system  was 
described,  the  uses  of  the  data  base  management  system,  CONDOR 
III,  and  the  computer  language,  ZBASIC,  were  identified. 
Additionally,  the  purpose  of  each  phase  was  explained  to  aid 
the  user  in  understanding  the  system.  The  next  chapters  will 
cover  the  user’s  actions  necessary  to  complete  a  mix  process. 


Chapter  Three 


USER  INSTRUCTIONS  FOR  PREPROCESSING  PHASE 

These  instructions  are  written  assuming  that  the  user  or 
operator  is  familiar  with  the  Z-120  computer.  He/She  should 
be  able  to  operate  the  equipment  and  possess  a  working 
knowledge  of  the  MS-DOS  operating  system.  Additionally,  the 
operator  should  be  familiar  with  the  CONDOR  III  Data  Base 
Management  System. 

The  SMSS  system  was  developed  to  minimize  user  actions. 
However,  if  problems  develop  or  minor  modifications  are 
needed,  a  knowledgeable  user  is  essential.  To  assist  the 
knowledgeable  user,  the  CONDOR  command  files  and  the  basic 
source  code  in  appendi>:  B  and  D  contain  comments  to  explain 
the  program  logic.  With  this  caveat  about  appropriate  user 
knowledge,  the  following  instructions  should  be  sufficient  to 
successfully  execute  the  preprocessing  phase  of  the  SMSS. 

The  preprocessing  phase  should  not  be  initiated  until  the 
OMEGA  and  BETA  data  bases  have  been  loaded  and  verified.  The 
preprocessing  phase  must  be  completed  once  per  student  body  or 
class.  Normally,  the  process  will  be  executed  just  before  the 
first  mix-  After  completing  the  entire  mix  process,  all 
critical  information  will  be  posted  to  OMEGA  and  BETA. 
Consequently,  the  preprocessing  routines  need  not  be  executed 
again,  unless  some  information  within  OMEGA  or  BETA  is 
changed . 

The  procedure  to  execute  the  preprocessing  phase  is 
straight  forward.  As  mentioned  before,  help  screens  have  been 
developed  to  aid  the  user.  The  following  steps  are  described 
to  demonstrate  the  actions  the  user  must  take. 


L  4 


step  1.  After  entering  CONDOR,  the  main  help  menu  should  be 
cal  led. 

Enter:  HELP  SMSS  <CR>. 

The  following  menu  is  displayed: 


IHIb  MAIN  MEIJU  Ib  USED  tO  CONIROL  THL  Ul  l.RAI  lUN  Ul-  THE 

♦ 

RIDDEN  I  MIX  sot  T WARE  SYSItM 

• 

(SMSS) 

» 

1. 

UPDATE  ACSC  STUDENT  DATA 

n  ^ 

PREPARE  DATA  FOR  MIX  MASTER 

3« 

UPDATE  ACSC  STUDENT  FILE  WITH  MIX  MASTER  RESULTS 

4. 

CREATE  REPORTS 

5, 

POST  FINAL  MIX  ASSIGNMENTS  TO  ALL  FILES 

6. 

EXIT 

Entt'r 

number ; 

Figure  6.  SMSS  Help  Menu 


step  2.  To  initiate  preprocessing  phase,  select  item  two. 
Enter:  2  <CR> 

The  following  menu  is  displayed: 


*  TO  RUN  THE  STUDENT  MIX  ROUTINE  IT  IS  FIRST  NECESSAY  TO  CREATE  AN 

*  INTERFACE  FILE  WHICH  CAN  BE  READ  PV  THE  MIXMASTER.  THIS  IS  DONE  BY 

*  FOLLOWING  THE  HELP  SCREEN  COMMANDS.  THE  PROCESS  HAS  BEEN  BROKEN 

*  INTO  STEPS  TO  PROVIDE  YOU  WITH  THE  OPPORTUNITY  TO  CONFIRM  THAT  EVERYTHING 

*  IS  PROCEEDING  AS  EXPECTED.  I  DO  NOT  WANT  TO  DESTROY  ANY  OF  THE  DATA  BASE 

*  THAT  YOU  WORKED  SO  HARD  TO  CREATE. 

» 

*  LET’S  GO  . 


1.  PROJECT  SELECTED  OMEGA  DATA  TO  A  WORK  FILE  SO  THAT  MIXING  DATA  CAN  DE  DERIVED 

2.  COMPUTE  KEY  MIX  DATA 

3.  SORT  DATA  BY  DATE  OF  RANK  FOR  MIX  MASTER 
A.  POST  STUDENT  SKtILLS  TO  INTERFACE  FILE 

5.  CREATE  AN  INTERFACE  FILE  FOR  THE  MIX  MASTER 
O.  EXIT 
Enter  number: 


Figure  7.  STUMIX  Help  Menu 
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step  3.  The  process  outlined  in  the  help  menu  must  be  com¬ 
pleted  in  sequence  in  order  to  produce  an  interface  file  for 
the  mix  routine. 

Enter:  1  <CR> 

The  following  menu  is  displayed: 


*  THH  KIF<‘jT  STEP  PROJECTS  ►>  P  ILL  WITH  IHL  m:y  MIXlHLj  DATA.  ArTEr<  THIS 

*  STEP  HAS  BEEN  COMPLETED  WE  NEED  TO  ADD  SOME  FIELDS  INTO  WHICH  MlXIN(j 

*  DATA  WILL  BE  PLACED.  I  NEED  YOUR  HELP  TO  ACCOMPLISH  THIS  STEP. 

*  THE  CONDOR’S  REORG  COMMAND  CAN  GET  THL  SI2C  UP  THE  DATABASE’S  FIELD  * 

*  FROM  THE  .FRM  FILE.  BUT  IT  CAN  NOT  DETERMINE  THE  DATA  TYPE.  * 

*  * 

*  YOU  NEED  TO  RESPOND  TO  THE  COMMAND’S  PROMPTS  BY  TYPING  "AN"  AND  A  • 

*  "CR"  * 

*  * 

*  WHEN  YOU  ARE  READY  SELECT  OPTION  1  » 


1 ,  LET’S  GO 

C.  RETURN  TO  PREVIOUS  MENU 
’.  EXIT 
Ttit.  nuinb*'>r: 


Figure  8.  PROJECT  Help  Menu 


Step  4.  As  indicated  by  the  menu,  some  help  from  the  operator 
is  required.  CONDOR’S  REORG  command  requires  the  operator  to 
define  the  data  type.  The  SMS5  will  initiate  the  process  and 
do  most  of  the  work;  however,  the  operator  must  provide  the 
requested  information. 

Enter:  1  <CR> 

The  process  will  take  approximately  15  minutes. 

Step  5.  After  the  process  is  complete,  the  menu  will 
reappear.  To  continue  with  the  preprocessing  phase,  return  to 
the  previous  menu. 

Enter:  2  <CR> 

The  main  preprocessing  menu  (see  step  3)  will  be  displayed. 

Step  6.  Continue  the  process  by  initiating  the  commands  in 
sequence. 

Enter:  2<CR> 

This  phase  of  the  process  will  take  about  15  minutes.  Then  the 
menu  will  reappear. 
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and 
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Step  7.  Continue  the  process- 
Enter:  3<CR> 

This  step  of  the  process  will  take  about  5  minutes 
conclude  by  displaying  the  now  familiar  menu. 

Step  8.  Continue  the  process. 

Enter:  4<CR> 

This  step  will  take  about  10  minutes  and  will  conclude  by  dis¬ 
playing  the  menu. 

Step  9,  Continue  the  process. 

Enter:  5<CR> 

This  step  will  take  about  20  minutes  and  will  conclude  by  dis¬ 
playing  the  menu. 

Step  10.  At  this  point  the  BASICIF  file  has  been  created  and 
the  next  phase  of  the  system  can  be  initiated.  Consequently, 
we  should  return  to  the  system  level  and  execute  the  SMSS 
basic  program. 

Enter:  6<CR> 

The  CONDOR  prompt  should  appear. 

Step  11.  To  return  to  the  MS-DOS  operating  system: 

Enter:  SYSTEM  <CR> 

The  system  prompt  will  appear. 
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This  menu  allows  you  to  configure  the  system  by 
specifying  the  name  of  the  school,  entering  the  name  of  the 
major  units  (ie.  WINGS,  FLIGHTS,  ETC),  the  number  of  major 
units  (up  to  5),  the  name  of  subunits  (ie.  SEMINARS,  SECTIONS, 
ETC),  and  the  total  number  of  subunits  (up  to  60).  If  you  do 
not  wish  to  change  the  default  values  simply  hit  "RETURN"  and 
go  on  to  the  next  selection  field.  You  will  then  have  the 
opportunity  to  enter  the  individual  wing  names,  the  number  of 
subunits  (seminars)  in  each  wing,  the  seniority  assigned  to 
each  wing,  the  first  seminar  in  the  wing,  the  last  seminar  in 
each  wing,  and  any  missing  seminars  which  have  been  deleted 
for  this  mix. 
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System  Configuration  Menu 
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This  flianu  !•  ua«d  to  a«l act  which  rulas  «r«  to  ba  appliad 
during  tha  actual  studant  mixing  procaas.  Rulaa  may  be 
apacified  aa:  A — Alwaya  apply*  P — Pra-farrad,  or  D — Don’t  care. 
You  can  aimply  review  thaaa  rulaa  and  than  return  to  the 
pravioua  menu  by  entering  *X’  at  the  choice  prompt I  or  you  can 
enter  'C'  and  elect  to  change  the  exiating  defaulta.  If  you 
elect  to  change  the  defaulta*  you  will  be  led  through  the 
rulaa  one  at  a  time  and  may  change  the  rule  by  entering  a  new 
value  or  you  may  leave  it  the  aame  by  aimply  entering 
'RETURN’.  Pleaae  note  that  you  can  not  uae  the  full  acraen 
editor  and  go  directly  to  the  rule  you  want  to  change.  You 
muat  progreaa  thru  the  rulea  one  at  a  time. 


1  f'PIORJTV  GI 

2  '  !■'  R  1 0  R  I  T  Y  G  I 

3  I  R  R  1 0  R  I  T  Y  G  I 
•1  j  F  R  1 0  R  I  T  Y  ij  1 
5  '  SOG  'dTUDEMT 
6:i  lo's  DOH'T 
7>  flRI  STUDENT 
s;i  CAN  NOT  BE 
9>  MAX  «  OF  ST 
10:t  PRIORITY  G 
li:>  EVENLY  DIS 

ARMY 

RES/NG/MC 
NON  LINE 
ED. LEVEL 


VtN  TO  COMMUHICA 
VEN  TO  PPBS  SKJL 
VEN  i'C  TACTICAL 
V E H  TO  S T F: A T E G  I C 
S  DO  '<01  CHANGE 
CHANGE  SEHINARSC 
S  DO  NOT  CHANGE 
ASSIGNED  TO  THE 
UDENTS  PREVIOUSL 
I VEN  TO  ACQUIS  IT 
TRIBUTE  THE  POLL 
A  NAVY 

A  BY  SEX 

A  BY  RANK 

D  SR  ORG  EX 


TION  SKILLS: 

LS: 

OPERATION  SKILLS: 

OPERATION  SKILL' 
SEMINARS: 

OR  'X'  TO  DELETE 
SEMINARS: 

SAME  SEMINAR: 

Y  ASSIGNED  WITH: 

I  ON/LOG  SKILLS: 
OWING  STUDENTS: 

A  RATED 
A  BY  RACE 
D  USAFA 
D  SINGLE 


ENTER  C>  TO  CHANGE  THE  DEFAULTS 

X>  TO  EXIT  BACK  TO  THE  PREVIOUS  MENU 


ENTER  YOUR  CHOICE: 


Figure  11 


Mix  Aaalgnment  Rulaa  Menu 


This  msnu  provides  you  with  the  ability  to  run  the  mix 
programs  or  return  to  the  main  menu.  You  may  select  mix  1,  2, 
3,  or  Special.  The  special  option  should  be  used  i'f  you  are 
running  a  new  mix  like  mix  4,  i-f  you  are  running  a  partial  mix 
like  remixing  wing  B  only,  or  i-f  you  simply  want  the  rules 
left  as  they  were — since  the  other  options  reset  the  rules  to 
the  standard  defaults  normally  desired  for  that  mix.  BEFORE 
YOU  RUN  THE  MIX  PROGRAM  YOU  MUST  HAVE  EXTRACTED  THE  DATA  FROM 
THE  CONDOR  DBMS  AND  PASSED  IT  TO  SMSS  USING  THE  PREPROCESSOR. 
This  preprocessing  only  needs  to  be  done  once,  but  it  must  be 
done  before  running  this  program!  if  you  have  not  done  this  do 
not  proceed,  instead  return  to  the  main  menu,  exit  SMSS,  go  to 
the  DBMS  HELP  menus  and  run  the  preprocessor. 

If  you  elect  to  run  the  mix  you  will  then  be  given  a 
chance  to  change  the  rules  selection  criteria.  You  may  elect 
to  change  any  or  all  of  the  rules  to  be  applied  during  the  mix 
process.  When  you  enter  *X’  to  return  from  the  Rules  Menu, 
you  will  immediately  start  on  the  mixing  process.  The  first 
program  to  be  called  will  be  SMSSMIXI  which  will  read  the  data 
from  the  file  provided  by  the  CONDOR  Preprocessor  and  write 
the  student  data  out  in  a  form  useable  by  the  SMSS  mixing 
program.  It  will  also  initialize  all  the  variables  and  arrays 
to  be  used  during  the  mix  process,  and  read  in  the  rules. 
This  process  takes  approximately  four  minutes.  During  the 
reading  process  a  will  be  printed  on  the  screen  after 

every  ten  records  to  let  you  know  what  the  program  is  doing. 

The  next  program  to  be  executed  is  SMSSMIX  which  performs 
the  actual  mixing.  It  applies  the  rules  you  selected,  one  at 
a  time.  It  takes  the  information  supplied  by  SMSSMIXI  and 
allocates  each  seminar  a  fair  share  of  each  student  category 
(is.  pilots,  minorities,  PPBS  skills,  etc.).  It  than  randomly 
assigns  the  most  senior  student  not  having  already  been  a 
Seminar  Leader  (SL) ,  as  the  SL  for  that  seminar,  and  assigns 
the  next  most  senior  individual  as  the  Alternate  Seminar 
Leader  (ASL).  After  the  SL/ASL  process,  the  international 
officers  (IO*s)  are  posted  (they  do  not  normally  change 
seminars).  Next,  the  ARI  and  SOS  students  are  posted  or 
assigned  depending  on  the  rules.  The  system  performs 
assignments  in  the  following  order: 

Assign  Seminar  Leaders  &  Alternate  Seminar  Leaders 
Post  International  Officers 
Post  or  assign  ARI  h  SOS 
Assign  Army 

Assign  Communication  Skills 
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Aamign  PPBS  Skill* 

Assign  Tscticsl  Operation  Skills 

Assign  Strategic  Operation  Skills 

Assign  Arquisition/Logistic  Skills 

Assign  N. .vy.  Reserve,  National  Guard,  USMC 

Assign  Females 

Assign  Singles 

Assign  Minorities 

Assign  Pilots 

Assign  Navigators 

Assign  No  Masters  Education 

Assign  USAFA  Graduates 

Assign  Senior  Organizational  Experience 
Assign  All  Others 

The  mixing  program  takes  approximately  30  minutes  to  run. 
During  this  process  it  prints  out  the  category  and  the 
individual  being  processed.  When  the  mixing  is  completed,  the 
system  will  call  the  SMSSMIXO  program  to  take  the  results  and 
write  them  out  in  a  -form  that  is  readable  by  the  CONDOR  DBMS; 
this  takes  three  minutes.  The  system  then  returns  to  the  SMSS 
program  and  allows  the  user  to  review  the  results  through  the 
statistical  menu  described  in  -figure  13. 


’HIS 


K:  r  1 1 . 1 


OilTH  THE  CfiPRBIL, 


MIX  PROGRAMS  AND  PRODUCE  A  STUDENT  DISTRIB 
ON  THE  RULES  THAT  YOU  SELECT.  THE  RULES  WI 
TO  THE  STANDARD  DEFAULTS  FOR  THE  MIX  YOU  S 
CAN  THEN  CUSTOMIZE  OR  CHANGE  THE  RULES  AS 
YOU  SHOULD  USE  OPTION  ’Dj  SPECIAL'-  IF  YOi! 
SOMETHING  LIKE  ADDING  A  MIX  4  OR  USING  THE 
RULES  WITHOUT  RESETTING.  PLEASE  NOTE  THAT 
RUN  THE  CONDOR  DBMS  PREPROCESSOR  TO  EXTRAT 
DATA  BEFORE  EXECUTING  THIS  PROGRAM. 

OPTIONS: 


TO  RUN  THt 
UTION  BASED 
LL  BE  RESET 
ELECT.  YOU 
YOU  SEE  FIT, 
WANT  TO  DO 
EXISTING 
YOU  MUST 
T  THE  RIGHT 


A)  MIX  1 
EO  MIX  2 
MIX  3 

d:.  special 

X.'I  return  TQ  main  MENU 
ENTER  YOUR  CHOICE:  C 


Figure  12. 


Running  the  Mix  Menu 
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This  nianu  provlda*  you  with  th«  ability  to  review  the 
result*  o-f  the  mix  process  at  the  overall  school  level,  at  the 
wing  level,  or  by  reviewing  individual  seminars.  Examples  o-f 
statistical  reviews  for  these  three  levels  are  provided  below. 
You  may  request  a  paper  print  out  of  these  results  by 
answering  *Y'  to  the  question  at  the  bottom  of  the  screen.  If 
you  are  not  happy  with  the  results  of  the  mix  you  can  rerun  it 
by  returning  to  the  'RUNNING  THE  MIX  MENU*.  The  results  will 
not  be  posted  back  to  CONDOR  until  you  run  the  CONDOR  Post 
Processor  which  is  the  topic  of  chapter  five. 


STATISTICS 


overall  school 


fiTTRIBUTE 


COMM  SKILLS 
PPBS  SKILLS 
TAC  OPS  SKILLS 
STRAT  OPS  SKILL 
ACQ/LOG  SKILLS 
PILOT 
NAVIGATOR 
SINGLE/UNAC 
USAFA  GRADS 
ARMY 

PES.  ‘NG/LISN/  IJSMC 
MINORITIES 
FEMALES 
RANK  -  CAPT 
8  8  ;k  X  /  8  9  X  X  /  9  x  x  x 
SR  ORG  EXP 
ARI/SOS 
NO  MASTERS  ED 

NOULD  YOU  LIKE 


IS 

HARDCOPY 


PRINT 


b 

4 

6 

78 

4 
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Figur*  14.  EKaoipla,  Overall  School  Mix  Statiatica 


Figure  IS.  Example,  Wing  B  Mix  Statiatica 
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The  (nixing  program  docs  not  make  a  perfect  mix,  and 
manual  changes  are  usually  required.  An  easy  way  of  checking 
out  the  ramifications  of  those  changes  is  to  produce  the  wing 
statistical  summary  in  SMSS.  But,  before  a  correct 
statistical  summary  can  be  produced,  the  changes  need  to  be 
posted.  Selecting  this  option  from  the  main  menu  will  result 
in  running  the  SMSSUPDT  program  which  will  read  in  the  BASICIF 
input  file  from  CQNDQR  and  post  the  manual  changes  so  that  the 
statistics  review  menu  can  be  used  with  the  latest  manual 
updates.  Before  selecting  this  option  you  should  have 
completed  your  manual  changes  to  the  OMEGA  and  CINTER  files 
using  the  CONDOR  DBMS.  These  changes  should  then  be  written 
out  to  the  BASICIF  file  using  the  appropriate  help  menu  just 
as  if  you  were  going  to  run  the  mix  over  again.  Instead  of 
running  the  mix  over,  this  option  posts  back  the  manual 
changes  you  have  made  so  that  you  can  determine  their  affect 
on  the  overall  wing  statistical  distribution  of  key 
characteristics. 

The  next  chapter  will  describe  the  CONDOR  Post  Processor 
which  posts  the  results  of  the  mix  programs  back  to  the  CONDOR 
DBMS  by  reading  the  BASICOT  ASCII  file  into  CINTER.  The  Post 
Processor  also  contains  a  help  menu  for  producing  the  required 
output  reports. 
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Chapter  Five 


POST  PROCESSING  AND  REPORTS 

As  described  in  chapter  two,  this  phase  o-f  the  system 
posts  the  mi>:  assignment  back  to  OMEGA  and  prepares  a  number 
of  user  selectable  reports.  Based  upon  these  reports,  the 
user  can  make  any  changes  he/she  feels  are  appropriate.  After 
completing  all  changes,  the  assignments  are  posted  to  CINTER 
for  next  mix  processing  and  final  reports  are  generated. 

As  was  the  case  for  the  preprocessing  phase,  the  user 
should  possess  the  skills  described  in  chapter  three. 

The  post  processing  phase  should  not  be  initiated  until 
the  mix  phase  has  concluded  with  the  creation  of  the  file 
BAS I COT. 

Step  1.  To  enter  the  post  process  phase,  the  user  must  be 
within  CONDOR.  The  post  processing  phase  is  initiated  by 
calling  up  the  main  SMSS  menu. 

Enter:  HELP  SMSS  <CR> 

This  action  will  present  the  SMSS  screen  (see  figure  6.) 

Step  2.  The  first  step  is  to  retrieve  the  newly  created  as¬ 
signment  information  and  post  it  to  the  OMEGA  file.  This  is 
accomplished  by  selecting  option  3. 

Enter:  3<CR> 

The  posting  process  will  take  approximately  10  minutes, 
it  is  finished  the  main  SMSS  menu  will  reappear. 


When 


step  3.  At  this  point,  the  information  can  be  reviewed  in 
different  formats.  To  obtain  a  list  of  the  various  formats, 
the  reports  menu  must  be  called. 

Enter:  4<CR> 

The  following  display  will  appeAr: 


Figure  17.  REPORTS  Help  Menu 


Step  4.  Make  a  selection  of  the  appropriate  report. 

Enter:  X<CR>  (where  X  =  the  report  number) 

After  sorting  in  the  appropriate  order,  the  report  will  begin 
printing.  When  the  report  is  finished  the  report  menu  will 
reappear . 

Step  5.  After  reviewing  the  reports,  changes  to  the  mix  as¬ 
signment  can  be  made  by  updating  the  OMEGA  file.  To  begin  this 
process  exit  the  reports  phase  and  return  to  the  SMSS  main 
menu. 

Enter:  9  <CR> 

The  CONDOR  Prompt  should  appear. 

Enter:  HELP  SMSS  <CR> 

The  SMSS  menu  wi  1  appear  (see  figure  6). 
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step  6.  To  initiate  the  update  process: 

Enter:  1<CR- 

The  OMEGA  format  will  appear  and  the  update  process  can  beqin. 
For  additional  information  on  this  subject,  see  the  CONDOR  III 
user  manual . 

Step  7.  After  the  update  process  has  been  completed,  the 
final  results  should  be  posted  to  CINTER.  This  step  will 
eliminate  the  long  process  of  creating  the  CINTER  file  from 
scratch  and  allow  future  mix  assignment  to  be  initiated  at  the 
mix  phase.  To  post  the  results: 

Enter:  5<CR> 

The  post  process  should  take  about  10  minutes.  When  the 
process  is  completed  the  SMSS  main  menu  will  reappear. 

Step  8.  At  this  point  the  final  reports  can  be  run  in  the 
same  manner  at  described  in  step  4.  Once  the  reports  are 
completed,  the  Student  Mix  Software  System  has  completed  its 
t  ask . 


Chapter  Six 


CONCLUSIONS 


The  success  or  -failure  o-f  SMSS  may  be  judged  against  two 
criteria.  First,  how  much  better  is  SMSS  than  the  old  Seminar 
Assignment  Mix  (SAM)  system  on  the  Honeywell.  Second,  how 
completely  does  SMSS  meet  the  mixing  objectives  o-f  the  school. 
Any  areas  where  SMSS  -falls  short  o-f  the  thool  objectives  can 
be  identi-fied  as  areas  o-f  potential  impru.ement. 


suss-^s-sau 

According  to  the  ACSC  Mix  Master,  the  SAM  system  was 
basically  unresponsive  to  the  current  needs  o-f  the  school.  It 
required  7  to  10  days  to  get  results  back,  it  was  basically 
unresponsive  to  required  changes,  and  the  product  required 
extensive  rework  (nearly  two  weeks  work  involving  -from  25-407. 
o-f  the  students  being  reassigned)  by  the  school  and  wing  mix 
masters  to  produce  a  useable  mix.  The  total  manpower 
requirements  o-f  the  SAM  system  were  approximately  200  manhours 
to  produce  each  -final  mix.  This  manpij.;er  intensive  system, 
combined  with  the  long  lead  t  i  required  to  obtain  the 
initial  SAM  product,  meant  that  the  system  was  not  responsive 
to  new  requirements  or  new  student  data. 

SMSS  allows  the  mix  master  to  turn  the  rules  on  or  o-f-f  as 
desired.  It  takes  only  30  minutes  to  run  th«j  mix  and  obtain 
the  initial  results.  I-f  the  SMSS  results  are  ’desirable,  or 
if  new  data  is  available,  the  mix  can  be  r>--''iin  immediately. 
The  SMSS  output  is  not  quife  perfect,  it  still  requires  some 
manual  rework  to  produce  a  final  mix.  According  to  the  ACSC 
Mix  Master,  the  SMSS  output  will  require  several  hours  of 
manual  rework  by  each  of  the  wing  mix  masters  as  opposed  to 
several  weeks  work  on  SAM.  The  SMSS  output  will  require  5-10 
moves  per  wing,  which  will  involve  reassigning  approximately 
57.  of  the  students  by  hand.  The  CONDOR  SMSS  Statistical 
Output  reports  also  permit  the  mix  master  to  produce  the  ACSC 
Student  Statistics  Report  in  less  than  an  hour  as  opposed  to 
several  weeks  when  done  by  hand.  By  any  measure  of 
comparison,  SMSS  is  a  great  success  when  compared  to  the  old 
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semi  automated  system.  5MSS  provide  the  mix  master  with  more 
■flexibility,  greater  user  control,  much  faster  results,  and  a 
better  product. 


SinSS-StiQBICQtjIbICS 

If  SMSS  is  compared  to  the  school  mix  objectives,  it  does 
have  a  few  shortcomings.  It  does  not  produce  a  perfectly  even 
mix.  There  are  also  minor  perterbations  in  the  output  with 
some  seminars  getting  more  of  one  student  characteristic  than 
another  by  a  factor  of  more  than  one.  There  are  also  a  few 
students  who  are  assigned  to  seminars  with  two  or  more 
previous  classmates.  The  CONDOR  SMSS  output  report  procedure 
produces  all  of  the  information  required  for  the  Student 
Statistical  Report,  but  it  does  not  automatically  produce  the 
final  report  in  the  correct  format.  Overall,  SMSS  does  meet 
the  school  objectives  of  an  improved  product  with  much  greater 
speed  (about  400  times  faster),  and  greater  flexibility.  It 
also  permits  accurate  automatic  statistical  summaries  for 
school  reporting. 


SUQC£SIED_ItjeBQ^EtlEtlIS 

Two  programs  could  be  written  in  ZBASIC  to  improve  the 
performance  of  the  SMSS.  The  first  of  these  would  be  an 
adjustment  program  which  would  walk  through  the  seminars  and 
compare  the  student  characteristics  within  a  wing.  Whenever 
it  discovered  two  seminars  with  an  imbalance  of  personnel 
characteristics  it  would  try  to  swap  students  until  it 
balanced  the  allocations.  This  program  should  also  check  and 
reassign  anyone  who  was  allocated  to  a  seminar  with  more  than 
one  previous  classmate. 

The  other  program  should  be  able  to  take  the  information 
provided  by  the  CONDOR  statistical  summary  queries  and  produce 
the  final  ACSC  Student  Statistical  Report  in  the  form  required 
by  the  Air  University  (AU) .  This  would  further  eliminate  the 
work  load  on  the  ACSC  Mix  Master  and  reduce  errors  by 
eliminating  manual  processing  and  typing. 

SMSS  has  done  a  lot  to  reduce  the  workload  on  the  school 
and  wing  mix  masters.  It  provides  a  much  better  product,  with 
great  flexibility,  in  much  less  time  than  previously  required. 
With  the  addition  of  the  improvements  suggested  above,  SMSS 
will  provide  ACSC  and  the  AU  with  a  fast  and  efficient  system 
to  meet  their  student  mixing  and  reporting  requirements. 
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OMEGA  DATA  BASE  VALUES 

1.  NAME:  LAST,  FIRST,  MI,  ETC 

2.  SSAN:  STANDARD  9  DIGIT,  NO  HYPHENS 

3.  ranh;:  «>3,  04,  etc 

4  .  DOR :  <  84<  1 1  0 1  ) 

5.  COMP:  USAF,  USA,  USN,  USMC,  ANG,  AFRES,  CIV,  USCG 

6.  AERO:  PLT,  NAV,  SR.PLT,  SR.NAV,  CMD.PLT,  MS.NAV,  NO  RATING 

7.  PAFSC:  (AN)  K1065C 

B.  PAS:  SAC,  MAC,  TAC,  ETC.,  REFER  TO  HANDOUT  IN  MIXER  FOLDER 
FOR  ACTUAL  COMMAND  CODES. 

9.  SEX:  M,  F 

10.  RACE:  3  DIGIT,  CAU,  BLK,  OTH 

11.  MAR.  ST:  S,  M,  D  (WE  WILL  HAVE  TO  UPDATE  FOR 

UNACCOMPANIED) 

12.  DOB:  OOOOOO  (500101) 

13.  COMM:  OTS,  ROTC,  USAFA,  USMA,  USNA,  DIR 

14.  ED. level:  BAC,  BAC.P,  MAS,  MAS.P,  PHD,  ASSOC  (HIGHEST 
LEVEL 

ATTAINED) 

15.  PLSD:  OOOOOO  (700101) 

16.  DAFSC:  (AN)  K1065C 

17.  2.AFSC:  . 

18.  3.AFSC: 

19.  H.ORG:  DOD,  HAF,  SOA,  MAJCOM,  NAF,  ADV,  GRP,  WNG,  SON,  DET 

20.  PME.l:  SOS  C/R  (INSERT  IF  SOS  BY  C  OR  R  COMPLETED) 

21.  PME.2:  ACSC  S/C  (INSERT  IF  ACSC  BY  S  OR  C  COMPLETED) 

22.  PME.3:  OTHER  (  AWC,  ICAF,  NDU,  AFSC,  ACGS,  NWCS,  NWC) 

7*  \r> 
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RTFD:  0000  (8705) 


^  •-* 

:‘4.  MOF  :  000  (UP  TO  A  3  DIGIT  NUMBER) 

SEI:  ALL  GRUUPG  Uh  :  NUMERICS,  NO  SPACES  BE  (WEEN  GROUP 

26.  1  AC. HRS. DATE:  MAKE  SURE  NUMERIC  CODE  TRANSLATED 

27.  2AC. HRS. DATE: 

28.  3AC. HRS. DATE: 

29.  4AC. HRS. DATE: 

’0.  5AC. HRS. DATE: 

31.  WING:  A,B,C,D 

32.  MIX.l:  NUMERIC  FROM  01-44 

33.  MIX. 2: 

34.  MIX. 3: 

35.  ST. NO.:  (STUDENT  NUMBER,  FILLED  IN  AFTER  MIXING) 

36.  AY:  CLASS  YEAR 


APPENDIX  _1 
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CONDOR  CommAr-kd  F='±  1 


33 


v*j  w  i.'_r  wwrv  v.''Vj'*. 


^'4  n“«  •'"•  r.  •*-  *^-1 


I 


ABSTRAC1.CMD  FILE 

;THIS  command  file  creates  sections  I  AND  SECTIONS  II  OF  THE 
CLASS  STATISTICS 

; REPORT. 

• 

COPY  ABSTRACT  =  OMEGA  OK 

« 

; IDENTIFY  10’ S 

SELECT  ABSTRACT  WHERE  DOR  =  " 

CHANGE  RESULT  ST  COMP  =  10 

POST  ABSTRACT  RESULT  BY  SSAN  REP  COMP 

SORT  ABSTRACT  BY  COMP 

; PR I NTS  SECTION  I 

TABULATE  ABSTRACT  BY  COMP  CP] 

; PRINTS  SECTION  II 

SORT  ABSTRACT  BY  RANK,  COMP 

TABULATE  ABSTRACT  BY  RANK,  COMP  CP3 

RUN  ABSTRAC3 

♦END 


ABSTRAC3.CMD  FILE 

;THIS  COMMAND  FILE  CREATES  SECTION  III  AND  V  OF  THE  STUDENT 
lil  Af  ISI  ICS  REPORT 

« 

;I0’S  ARE  NOT  INCLUDED  IN  SECTION  IIl-XIV 
DELETE  ABSTRACT  WHERE  COMP  =  10 

SELECT  ABSTRACT  WHERE  AERO  =  *PIL* 

CHANGE  RESULT  ST  AERO  =  PILOT 
SAVE  AERODB 
? 

SELECT  ABSTRACT  WHERE  AERO  =  *NAV* 

CHANGE  RESULT  ST  AERO  =  NAVIGATOR 
APPEND  AERODB  RESULT 

SELECT  ABSTRACT  WHERE  AERO  =  *NO* 

CHANGE  RESULT  ST  AERO  =  "NON  RATED" 

APPEND  AERODB  RESULT 
<1 

SORT  AERODB  BY  AERO,  COMP 
TABULATE  AERODB  BY  AERO,  COMP  LSD 
SAVE  RPTl  OK 
5 

;CLEAN  UP  FILES 
DESTROY  AERODB  OK 


^  ^  ./  W  ^ 


RUN  ABSTRACT 
»END 


ABSTRAC6.CMD  FILE 


;THIS  command  file  creates  section  VI  OF  THE  STUDENT  STAIIS- 
TICS  REPORT 


; COMBINES  SINGLE  AND  DEVORICED  INTO  SINGLE 
? 

SELECT  ABSTRACT  WHERE  MAR. ST  =  D,S 
CHANGE  RESULT  ST  MAR. ST  =  S 
SAVE  MARSTDB  OK 


; COMBINES  MARRIED  AND  UNACCOMPANIED  INTO  MARRIED 

SELECT  ABSTRACT  WHERE  MAR. ST  =  M,U 
CHANGE  RESULT  ST  MAR. ST  =  M 
APPEND  MARSTDB  RESULT 


IDENTIFIES  THE  NUMBER  OF  MARRIED  OFFICERS  THAT  ARE  UNACCOM¬ 
PANIED 

• 

SELECT  ABSTRACT  WHERE  MAR. ST  =  U 
APPEND  MARSTDB  RESULT 

n 

; PR  I NT  RESULTS 

SORT  MARSTDB  BY  MAR. ST 

TABULATE  MARSTDB  BY  MAR. ST  CPI 

; CLEAN  UP  FILES 
DESTROY  MARSTDB  OK 
RUN  ABSTRACT 
♦END 


ABSTRAC7.CMD  FILE 

;THIS  COMMNAD  file  creates  SECTION  VII  OF  THE  STUDENT  STATIS¬ 
TICS  REPORT 

SORT  ABSTRACT  BY  SEX 
TABULATE  ABSTRACT  BY  SEX  CPI 
RUN  ABSTRAC8 
♦END 


ABSTRAC8.CMD  FILE 


;THIS  command  file  creates  section  VIII  OF  THE  STUDENT 
STATISICS  REPORT 
? 

SORT  ABSTRACT  BY  RACE 
TABULATE  ABSTRACT  BY  RACE  CP3 
RUN  ABSTRAC9 
*END 


ABSTRAC9.CMD  FILE 

;THIS  command  file  creates  section  IX  OF  THE  STUDENT  STATIS¬ 
TICS  REPORT 


;ELEMINATE  civ  from  this  SECTION 
SELECT  ABSTRACT  WHERE  COMP  NE  CIV 
SORT  RESULT  BY  COMM 
TABULATE  RESULT  BY  COMM  CP] 

RUN  ABSTRAll 
*END 


ABSTRA10.CMD  FILE 

;THIS  command  file  creates  section  X  OF  THE  STUDENT  STATISTICS 

REPORT 

5 

SORT  ABSTRACT  BY  H.ORG 
TABULATE  ABSTRACT  BY  H.ORG  CP] 

*END 


ABSTRA11.CMD  FILE 

:THIS  command  FILE  CREATES  SECTION  XI  OF  THE  STUDENT  STATIS¬ 
TICS  REPORT 


; COMPUTE  OFFICERS  WHO  COMPLETED  SOS  AND  EQUIVALANT  SCHOOLS  IN 
RESIDENCE 

SELECT  ABSTRACT  WHERE  PME. 1  =  *R 
SORT  RESULT  BY  PME.  1 
TABULATE  RESULT  BY  PME. 1  CP] 


;  COMPUTE  OFFICERS  WHO  COMPLETED  PME  BY  CORRESPONDANCE 
? 

SELECT  ABSTRACT  WHERE  PME. 1  =  *C 

•ij 


.n  vv  vz  v"*'  v  ^  ^  M  r  ~ ^  TJ'  ".'V  w'J  V*.. 
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SORT  RESULT  BY  PME.  1 
TABULATE  F^ESULT  BY  PME.  1  tPT 
! 

SELECT  ABSTRACT  WHERE  PME. 2  =  ????C 
SORT  RESULT  BY  PME. 2 
TABULATE  RESULT  BY  PME. 2  CPD 
! 

SELECT  ABSTRACT  WHERE  PME.  3  = 

SORT  RESULT  BY  PME . 3 
TABULATE  RESULT  BY  PME. 3  tPD 
RUN  AB3TRA12 
♦END 


ABSTRA12.CMD  FILE 

;THIS  command  file  CREATES  SECTION  XII  OF  THE  STUDENT  lilAIIS 
TIL'S  REPORT 

n 

COMPUTE  ABSTRACT  WHERE  ED.  LEVEL  =  '^’PDG  ST  ED.  LEVEL  =  MAS+ 

SORT  ABSTRACT  BY  ED. LEVEL,  COMP 
TABULATE  ABSTRACT  BY  ED. LEVEL,  COMP  CPI 
RUN  ABSTRA13 
♦END 


ABSTRA13.CMD  FILE 

;THIS  COMMAND  FILE  CREATES  SECTION  XIII  OF  THE  STUDENTS 
STATISTICS  REPORT 


;ELEMINATE  NON  AIR  FORCE  PERSONNEL  FROM  STATISTICS 

■ 

n 

SELECT  ABSTRACT  WHERE  COMP  =  USAF, ANG, AFRES 
SAVE  OCCTEMP  OK 
5 

SELECT  OCCTEMP  WHERE  PAFSC  =  700??'? 

CHANGE  RESULT  ST  PAFSC  =  OO 
SAVE  RPTDB  OK 

<• 

SELECT  OCCTEMP  WHERE  PAFSC  =  702??? 

CHANGE  RESULT  ST  PAFSC  =  02 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  705777 
CHANGE  RESULT  ST  PAFSC  =  05 
APPEND  RPTDB  RESULT 

« 

SELECT  OCCTEMP  WHERE  PAFSC  =  709*^77 
CHANGE  RESULT  ST  PAFSC  =  09 
APPEND  RPTDB  RESULT 
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SELECT  OCCTEMP  WHERE  PAFSC  = 

CHANGE  RESULT  ST  PAFSC  =  iO-20 
APPEND  RPTDB  RESULT 
<1 

SELECT  OCCTEMP  WHERE  PAFSC  =  720'’?? 
CHANGE  RESULT  ST  PAFSC  =  10-20 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?21??? 
CHANGE  RESULT  ST  PAFSC  =  10-20 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?22?':’'> 
CHANGE  RESULT  ST  PAFSC  =  10-20 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  725'^?? 
CHANGE  RESULT  ST  PAFSC  =  25 

APPEND  RPTDB  RESULT 

• 

SELECT  OCCTEMP  WHERE  PAFSC  =  72677':> 
CHANGE  RESULT  ST  PAFSC  =  26 
APPEND  RPTDB  RESULT 

% 

SELECT  OCCTEMP  WHERE  PAFSC  =  727777 
CHANGE  RESULT  ST  PAFSC  »  27 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  7287'^7 
CHANGE  RESULT  ST  PAFSC  =  28 
APPEND  RPTDB  RESULT 

n 

SELECT  OCCTEMP  WHERE  PAFSC  =  731777 
CHANGE  RESULT  ST  PAFSC  =  31 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  740777 
CHANGE  RESULT  ST  PAFSC  =  40 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  749777 
CHANGE  RESULT  ST  PAFSC  =  49 
APPEND  RPTDB  RESULT 

« 

SELECT  OCCTEMP  WHERE  PAFSC  =  755777 
CHANGE  RESULT  ST  PAFSC  =  55 
APPEND  RPTDB  RESULT 

4 

SELECT  OCCTEMP  WHERE  PAFSC  =  760777 
CHANGE  RESULT  ST  PAFSC  =  60 
APPEND  RPTDB  RESULT 
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SELECT  OCCTEMP  WHERE  PAFSC  = 

CHANGE  RESULT  ST  PAFSC  =  62 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  764??? 
CHANGE  RESULT  ST  PAFSC  =  64 
APPEND  RPTDB  RESULT 

4 

SELECT  OCCTEMP  WHERE  PAFSC  --  ';’65'^':’? 
CHANGE  RESULT  ST  PAFSC  =  t 5 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  = 

CHANGE  RESULT  ST  PAFSC  =  66 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  = 

CHANGE  RESULT  ST  PAFSC  =  67 
APPEND  RPTDB  RESULT 

|l 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?70??';> 
CHANGE  RESULT  ST  PAFSC  =  70 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  ';’73'’'^'' 
CHANGE  RESULT  ST  PAFSC  =  73 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  7747':’'^ 
CHANGE  RESULT  ST  PAFSC  =  74 
APPEND  RPTDB  RESULT 

SELECT  OCCTEMP  WHERE  PAFSC  =  •^75'>7'> 
CHANGE  RESULT  ST  PAFSC  =  75 
APPEND  RPTDB  RESULT 

5 

SELECT  OCCTEMP  WHERE  PAFSC  =  779777 
CHANGE  RESULT  ST  PAFSC  =  79 
APPEND  RPTDB  RESULT 

« 

SELECT  OCCTEMP  WHERE  PAFSC  =  780';’7'> 
CHANGE  RESULT  ST  PAFSC  =  80 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  781777 
CHANGE  RESULT  ST  PAFSC  =  81 
APPEND  RPTDB  RESULT 

•* 

SELECT  OCCTEMP  WHERE  PAFSC  =  782777 
CHANGE  RESULT  ST  PAFSC  =  82 
APPEND  RPTDB  RESULT 


SELECT  OCCTEMP  WHERE  PAFRC  =  "^S???? 
CHANGE  RESULT  ST  PAFSC  =87 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?88??? 
CHANGE  RESULT  ST  PAFSC  =  88 
APPEND  RPTDB  RESULT 
? 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?89??? 
CHANGE  RESULT  ST  PAFSC  =  89 
APPEND  RPTDB  RESULT 
! 

SELECT  OCCTEMP  WHERE  PAFSC  =  ?9???? 
CHANGE  RESULT  ST  PAFSC  =  90-99 
APPEND  RPTDB  RESULT 

;f'RINT  RESULTS 

JABULATE  RPTDB  BY  PAFSC  CP 3 

;  CLEAN  UP  FILES 
DESTROY  RPTDB  OK 
DESTROY  OCCTEMP  OK 
RUN  ABSTRA14 
♦END 


ABSTRA14.CMD  FILE 

;THIS  COMMAND  FILE  CREATS  SECTION  XIV  OF  THE  STUDENT  STATISTI¬ 
CAL  REPORT 


SELECT  ABSTRACT  WHERE  COMP  =  ANG,  AFRES,  USAF 

SAVE  RPTDB  OK 

SORT  RPTDB  BY  PAS 

TABULATE  RPTDB  BY  PAS  CP3 

DESTROY  RPTDB  OK 

RUN  ABSTRA15 

♦  END 


ABSTRA15.CMD  FILE 


;THIS  file  creates  section  XV  OF  THE  STUDENT  STATISTICS  REPORT 

; SELECT  ONLY  INTERNATIONAL  OFFICER 

SELECT  OMEGA  WHERE  DOR  =  " 

SORT  RESULT  BY  COMP 
TABULATE  RESULT  BY  COMP  CP 3 
♦END 


ALPHA.CMD  FILE 


SORT  OMEGA  BY  NAME 
REPORT  ALPHA 
*END 


CPTMIXPR.CMD  FILE 

COMPUTE.  TESTl  WHERE  DOR  =  "  " ,  O  ST  ID  =  Y 
SELECT  TESTl  WHERE  IQ  =  Y 
SAVE  lOFILE 

DELETE  TESTl  WHERE  10  =  Y 

COMPUTE  TESTl  WHERE  ED. LEVEL  =  BAC,  BPC+,  "  "  ST  NOMAST  =  Y 

COMPUTE  TESTl  WHERE  H.ORG  =  MAJCOM, SOA, HAF,  DOD  ST  SRORG  =  Y 

COMPUTE  TESTl  WHERE  AERO  =  *PIL*  ST  PILOT  =  Y 

COMPUTE  TESTl  WHERE  AERO  =  *NAV*  ST  NAVIGATOR  =  Y 

COMPUTE  TESTl  WHERE  MAR. ST  =  U,D,S  ST  SINGLE  =  Y 

COMPUTE  TESTl  WHERE  COMM  =  "AF  ACAD”  ST  USAFA  =  Y 

COMPUTE  TESTl  WHERE  COMP  =  USN  ST  NAVY  =  Y 

COMPUTE  TESTl  WHERE  COMP  =  USA  ST  ARMY  =  Y 

COMPUTE  TESTl  WHERE  COMP  -  AFRES,  ANG,  USMC,  USG  ST  RESNGUSMC 
=  Y 

COMPUTE  TESTl  WHERE  SEX  =  F  ST  FEMALE  =  Y 
COMPUTE  TESTl  WHERE  RANK  =  03  ST  RANKC  =  Y 

COMPUTE  TESTl  WHERE  PAFSC  =  '^88*.  789*,  ?9*  OR  COMP  =  CIV  ST 
NONLINE  =  Y 

COMPUTE  TESTl  WHERE  PME.3  NE  ”  ”  ST  SRPME  =  Y 

COMPUTE  TESTl  WHERE  COMP  =  USAF  ST  USAF  =  Y 

COMPUTE  TESTl  WHERE  RACE  NE  CAU  ST  MINORITY  =  Y 

COMPUTE  TESTl  WHERE  PAFSC  =  •^12*,  715257,  718*,  71575A  ST 

STRATOPSK  =  Y 

COMPUTE  TESTl  WHERE  PAFSC  =  71 1*, 715157, 715557  ST  TACOPSK  =  Y 
COMPUTE  TESTl  WHERE  2.AFSC  =  712*,  ';’1525';’,  718*,  "^ISTSA  ST 

STRATOPSK  =  Y 

COMPUTE  TESTl  WHERE  2.AFSC  =  71 1 *, 715157, 715557  ST  TACOPSK  =  Y 

APPEND  TESTl  lOFILE 

COMPUTE  TESTl  ST  NRANK  =  ©RANK 

COMPUTE  TESTl  ST  NDOR  =  @DOR 

DESTROY  lOFILE 

*END 


PSTFINAL.CMD  FILE 


;  THIS  COMMAND  FILE  WILL  POST  THE  USER  MODIFIED  RESULTS  OF 
THE 

;  MIXING  PROCESS  BACK  TO  C INTER 


;  THIS  ACTION  ELEMINATES  THE  NECCESSITY  TO  PREPARE  THE  DATA 
FOR  THE 

;  MIX  ROUTINE  IN  FUTURE  MIXES 
? 

COPY  CINTERBU  =  C INTER  OK 

POST  CINTER  OMEGA  BY  SSAN  REP  MIX.l,  MIX. 2,  MIX. 3,  ASLl, 

ASL2, ASL3,SL1 ,  SL2,SL3,CC,  SRO 

*END 


PSTOMEGA-CMD  FILE 

COPY  OMEGABU  =  OMEGA  OK 
COPY  CINTERBU  =  CINTER  OK 
EMPTY  CINTER  OK 
READ  CINTER  BAS I COT  CE J 

POST  OMEGA  CINTER  BY  NAME, SSAN  REP 

MI  X . 1 , MI  X . 2, MI  X . 3, ACLl , ASL2. ASL3,  SLl , SL2, SL3. SRO, CC 

♦END 


PSTSKILL.CMD  FILE 


;This  command  file  post  the  student  skills  contained 
;  in  the  BETA  file  to  the  CINTER  file 

COPY  CINTERBU  =  CINTER  OK 

POST  CINTER  BETA  BY  SSAN  REP  COMMSK,  STRATOPSK,  TACKOPSK, 

PPBSSK,  ACQLOG 

»END 


REDEFINE-CMD  FILE 


♦MESSAGE  ENTER  THE  NAME  OF  THE  DATASET  YOU  WANT  TO  REDEFINE 
♦GET  $1 

♦MESSAGE  ENTER  THE  NAME  FOR  THE  BACKUP  COPY  OF  *1 
*tGET 

COPY  S2  = 

WRITE  tl  LB] 

DEFINE  *1 
READ  *1 
♦  END 

JEM1SEM1.CMD  FILE 


COPY  RPTFILE  =  OMEGA  OK 

♦MESSAGE  YOU  MAY  SELECT  ALL  WINGS  OR  INDIVIDUAL  WINGS 
♦MESSAGE  TO  SELECT  ALL  WINGS  USE  "X"  OTHERWISE  USE  WING  LETTER 
»MESSAGE  ENTER  WING  LETTER  A,B,C,D  OR  X 
♦GET  $1 

♦IF  =  A,B,C,D 


4 


WING 


SELECT  RPTFILE  WHE 
SAVE  RPTFILE  OF 
♦ENDIF 

SORT  RPTFILE  BY  MIX.l 
REPORT  SEMIALPH  ALL  CPI 
♦  END 


SEMrSEMl.CMD  FILE 

COPY  RPTFILE  =  OMEGA  OK 

♦  MESSAGE  YOU  MAY  SELECT  ALL  WINGS  OR  INDIVIDUAL  WINGS 
♦MESSAGE  TO  SELECT  ALL  WINGS  USE  “X”  OTHERWISE  USE  WING  LETTER 

♦  MESSAGE  ENTi.R  WING  LETTER  A,B,C,D  OR  X 
♦GET 

♦IF  =  A,B,C,D 

SELECT  RPTFILE  WHERE  WING  =  *1 
SAVE  RPTFILE  OK 
♦END  IF 

SORT  RPTFILE  BY  MIX.l 
REPORT  SEMIALPH  ALL  CPD 
♦END 


SEM2SEM2.CMD  FILE 


COPY  RPTFILE  =  OMEGA  OK 

»MESSAGE  YOU  MAY  SELECT  ALL  WINGS  OR  INDIVIDUAL  WINGS 
♦MESSAGE  TO  SELECT  ALL  WINGS  USE  "X"  OTHERWISE  USE  WING  LETTER 
♦MESSAGE  ENTER  WING  LETTER  A,B,C,D  OR  X 
♦GET 

♦IF  $1  =  A,B,C,D 

SELECT  RPTFILE  WHERE  WING  =  *1 
SAVE  RPTFILE  OK 
♦END IF 

SORT  RPTFILE  BY  MIX.  2 
REPORT  SEM2ALPH  ALL  CPI 
♦END 


SEM3SEM2.CMD  FILE 


COPY  RPTFILE  =  OMEGA  OK 

♦  MESSAGE  YOU  MAY  SELECT  ALL  WINGS  OR  INDIVIDUAL  WINGS 
♦MESSAGE  TO  SELECT  ALL  WINGS  USE  "X"  OTHERWISE  USE  WING  LETTER 
♦MESSAGE  ENTER  WING  LETTER  A,B,C,D  OR  X 

♦GET 

♦  IF  =  A,B,C,D 

SELECT  RPTFILE  WHERE  WING  =  *1 
SAVE  RPTFILE  OK 

♦  ENDIF 

SORT  RPTFILE  BY  MIX.  2 
REPORT  SEM2ALPH  ALL  CPI 
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*END 


SME3SEM3.CMD  FILE 

;SINCE  lO’S  GRADUATE  BEFORE  THE  THIRD  MIX,  THEY  ARE  ELEMINATED 
5 

SELECT  OMEGA  WHERE  DOR  NE  " 

SAVE  RPTFILE  OK 

♦MESSAGE  YOU  MAY  SELECT  ALL  WINGS  OR  INDIVIDUAL  WINGS 
♦MESSAGE  TO  SELECT  ALL  WINGS  USE  "X*’  OTHERWISE  USE  WING  LETTER 
♦MESSAGE  ENTER  WING  LETTER  A,B,C,D  OR  X 
♦GET  *1 

♦  IF  $1  =  A,B,C,D 

SELECT  RPTFILE  WHERE  WING  =  %1 
SAVE  RPTFILE  OK 
♦ENDIF 

SORT  RPTFILE  BY  MIX- 3 
REPORT  SEM3ALPH  ALL  CPI 
♦END 


SLTMIXDA.CMD  FILE 


COPY  TESTIBU  =  TESTl  OK 
DESTROY  TESTl  OK 

PROJECT  OMEGA  BY  NAME,  SSAN,  RANK, ST. NO,  COMP,  AERO,  PAFSC, 
2.AFSC,SEX,  RACE,  MAR. ST,  COMM,  ED. LEVEL,  H.ORG,  PME.3, 

SAVE  IHALF  OK 

PROJECT  OMEGA  BY  SSAN, WING,  MIX.l,  MIX. 2,  MIX. 3,  PAS,  DOR, 

SAVE  2HALF  OK 

JOIN  IHALF  2HALF  MATCHING  SSAN 

SAVE  TESTl  OK 

DESTROY  IHALF  OK 

DESTROY  2HALF  OK 

REORG  TESTl  TEST2.FRM 

♦END 


SORT.CMD  FILE 

WRITE  TESTl  TEMP 

EMPTY  TEST2  OK 
READ  TEST2  TEMP 
COMPUTE  TEST2  ST  SORTKEY  = 

SORT  TEST2  SORTKEY 
♦  END 


<  12-NRANK)  *1000000  +  NDOR 


APPENDIX 

c 
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Attribute  summary  of  dataset  OMEGA 


1 . NAME: 

AN, 27, 0,27, " 

II 

2.SSAN: 

AN, 9, 0,9, " 

•• 

3. RANK: 

AN, 2, 0,2, " 

II 

4, DOR: 

AN,  6, 0,6,  " 

II 

5. COMP: 

AN, 5, 0,5, " 

II 

6. AERO: 

AN,  9,  0,9,  " 

II 

7.PAFSC: 

AN,  6, 0,6,  " 

II 

8. PAS: 

AN,  3,  0,3,  " 

II 

9. sex: 

AN, 1,0, 1,  " 

II 

10. RACE: 

AN,  3, 0,3, " 

11 

1 1 .MAR. ST 

:  AN, 1,0,1," 

II 

12. DOB: 

AN, 6, 0,6, " 

II 

13. COMM: 

AN, 7, 0,7, " 

II 

14. ED. level:  an, 4, 0,4," 

15.PLSD: 

AN, 6, 0,6, " 

II 

16.DAFSC: 

AN, 6, 0,6, " 

II 

17.2.AFSC 

:  AN,  6,  0,6," 

II 

18. 3. AFSC 

:  AN, 6, 0,6," 

II 

19.H.0RG: 

AN, 3, 0,3, " 

II 

20.PME. i: 

AN, 5, 0,5, " 

II 

21.PME.2: 

AN, 5, 0,5, " 

11 

22.PME.3: 

AN, 5, 0,5,  " 

It 

23.RTFD: 

AN,4,0,4," 

II 

24.M0F: 

AN,  3,  0,3,  " 

II 

25.SEI: 

AN, 24, 0,24, " 

II 

26.  1.  AC.  HRS.  date:  AN,  15, 0,  15, '* 

27.2.  AC. HRS. DATE:  AN, 15,0,15, " 

28. 3.  AC. HRS. DATE:  AN, 15,0,  15,  " 

29.4.  AC. HRS. DATE:  AN, 15, 0, 15, " 

30.5.  AC. HRS. DATE:  AN, 15,0, 15, " 


31. WING: 

AN,  1,0,  1,  " 

It 

32. MIX.  i: 

AN,2,0,2," 

II 

33. MIX. 2: 

AN, 2, 0,2, " 

II 

34. MIX. 3: 

AN, 2, 0,2, " 

II 

35. ST. NO: 

AN, 4, 0,4," 

II 

36. AY:  AN, 2, 0,2," 

Record  size  <bytes)  =  251 
Total  records  =  565 


Attribute  summary  of  dataset  BETA 

l.NAME:  A, 27, 0,27," 

2.SSAN;  N,9,0,9," 

3.1:  AN, 6, 0,6," 

4.11:  AN, 31, 0,31," 

5.21:  AN, 4, 0,4," 


6. 31 : 

N,6,0,6. 

II 

7.2: 

AN,  6,  0,6, 

II 

8. 12: 

AN,  31,0,  31,  •• 

II 

9. 22: 

AN,  4, 0,4,  •• 

•1 

10. 32: 

N,6,0,6, 

II 

11.3: 

AN,  6,  0,6,  •• 

II 

12. 13: 

AN, 31, 0,31," 

II 

13.23: 

AN, 4, 0,4, " 

II 

14.33: 

N,6,0,6,  " 

II 

15.4: 

AN, 6, 0,6,  " 

II 

16. 14: 

AN,  31, 0,  31,  " 

II 

17.24: 

AN,  4, 0,4, 

II 

18.34: 

N,6,0,6, " 

II 

19.  5: 

AN, 6, 0,6, " 

•I 

20.  15: 

AN, 31,0, 31, " 

•I 

21.25: 

AN,4,0,4," 

II 

22.35: 

N,6,0,6,  " 

II 

23.6: 

AN, 6, 0,6, " 

II 

24. 16: 

AN, 31,0, 31,  " 

II 

25.26: 

AN,  4, 0,4,  •• 

II 

26.36: 

N,6,0,6, " 

11 

27.7: 

AN, 6, 0,6, " 

II 

28. 17: 

AN,31,0,31, " 

•I 

29.27: 

AN,4,0,4," 

II 

30. 37: 

N,6,0,6, " 

II 

31.8: 

AN, 6, 0,6, " 

II 

32. 18: 

AN, 31,0, 31,  " 

•1 

33.28: 

AN,  4, 0,4, 

II 

34.  30: 

N,6,0,6,  " 

II 

'■5.  9: 

AN, 6,0,  6,  " 

•1 

36. 19: 

AN,  31, 0,  31,  " 

II 

37.29: 

AN, 4, 0,4, " 

M 

38.39: 

N,6,0,6, " 

II 

39. 10: 

AN, 6, 0,6, " 

II 

40.20: 

AN,  31,0,  31,  " 

11 

41 . 30: 

AN, 4, 0,4, " 

II 

42.40: 

N,6,0,6, " 

II 

43. COMM 

:  A, 1,0,1," 

II 

44.PPBS 

:  A, 1,0,1," 

II 

45. LOG: 

A, 1,0, 1 ,  " 

II 

Record 

size  (bytes)  =  510 

6. AERO: 

AN, 9. 0,9,  " 

H 

7. PAFSC: 

AN, 6, 0,6, " 

II 

8. pas: 

AN, 3, 0,3, " 

•1 

9. sex: 

AN, 1,0,1," 

•1 

10. race: 

AN,  3, 0.3,  " 

II 

1 1 .MAR. ST 

:  AN, 1,0,1," 

II 

12. comm: 

AN, 7,0, 7, " 

II 

13.  ED. level:  an, 4, 0,4," 

14. H. ORB: 

AN, 3, 0,3, " 

II 

15,PME.3: 

AN, 5, 0,5, " 

II 

16. DOR: 

AN, 6, 0,6, " 

II 

17. MIX. i: 

AN, 2, 0,2," 

II 

18. MIX. 2: 

AN,2,0,2," 

II 

19. MIX. 3: 

AN, 2, 0,2, " 

II 

20. MIX. X: 

AN,  2, 0,2,  " 

II 

21 .pas: 

AN, 3, 0,3, " 

«l 

22. wing: 

AN, 1,0,  1," 

II 

23.USAF: 

AN, 1,0, 1,  " 

II 

24. NOMAST 

:  AN, 1,0,1," 

II 

25.SR0RG: 

AN, 1,0,1,  " 

II 

26. pilot: 

AN, 1,0,1," 

II 

27. NAVIGATOR:  AN, 1,0, 1," 

28. SINGLE 

:  AN,1,0,1," 

II 

29.USAFA: 

AN,  1,0,  1,  " 

II 

30. NAVY: 

AN,1,0,1," 

II 

31. army: 

AN, 1,0, 1, " 

II 

32 .  RESNGUSMC :  AN , 1 , 0 ,  1 ,  " 

33.  MINORITY:  AN, 1,0, I,” 

34.  female:  an, 1,0,1," 

35. RANKC:  AN,  1,0,1," 

36.  NONLINE:  AN, 1,0,1," 

37.SRPME:  AN, 1,0,1," 

38.  TOPPER:  AN, 1,0,1," 

39. C0MMSK:  AN, 1,0,1," 

40. TAC0PSK:  AN, 1,0,1," 


41 .stratopsk:  an, 1,0,  1," 

42.PPBSSK 

:  AN, 1,0,1," 

43. ACQLOG 

:  AN, 1,0,1,  " 

44.SL1: 

AN, 1,0,1," 

45. SL2: 

AN, 1,0,  1,  " 

46.SL3: 

AN, 1,0,1," 

47.SLX: 

AN, 1,0,  1,  " 

48. ASLl: 

AN, 1,0, 1, " 

49. ASL2: 

AN, 1,0, 1, " 

50. ASL3: 

AN, 1,0, 1, " 

51. ASLX: 

AN,  1,0,  1,  " 

52. SOS: 

AN, 1,0,  1,  " 

53. ARI : 

AN, 1,0, 1, " 

54.SR0: 

AN, 1,0,  1,  " 

55. cc: 

AN, 1,0,1," 

56. lo: 

AN, 1,0,1," 

<• 


57.NRANK:  AN, 2, 0,2," 


58.ND0R:  AN, 6, 0,6," 

59.S0RTKEY;  AN, 8,0,0," 

Record  size  (bytes)  =  158 
Total  records  =  158 


Attribute  summary  ot  dataset  TEST 


1-NAME: 

AN,  27,0,27, 

2,  ssan: 

AN, 9, 0,9, " 

3. rank: 

AN, 2, 0,2,  " 

4. st.no: 

AN, 4, 0,4, " 

5. comp: 

AN, 5, 0,5, " 

6. aero: 

AN, 9, 0,9,  " 

7.PAFSC: 

AN, 6, 0,6,  " 

8. PAS: 

AN, 3, 0,3, " 

9. SEX: 

AN, 1,0, 1, " 

10. RACE: 

AN, 3, 0,3, " 

11. MAR. ST 

:  AN, 1,0,1," 

12. COMM: 

AN, 7, 0,7, " 

13. ED. level:  an, 4, 0,4," 

14.H.0RG: 

AN,  3,  0,3,  " 

15.PME.3: 

AN, 5,  0,5,  " 

16. DOR: 

AN,  6,  0,6, 

17. MIX. i: 

AN,  2, 0,2,  " 

18. MIX. 2: 

AN,2,0,2," 

19. MIX. 3: 

AN,2,0,2," 

20. MIX. x: 

AN, 2, 0,2," 

21. pas: 

AN, 3, 0,3, " 

22. wing: 

AN, 1,0, 1, " 

23.USAF: 

AN, 1,0,1," 

24. NOMAST 

:  AN, 1,0,1," 

25.SR0RG: 

AN, 1,0, 1," 

26. PILOT: 

AN, 1,0,1," 

27. NAVIGATOR:  AN, 1,0.1," 

28. SINGLE:  AN, 1,0,1," 

29. USAFA:  AN, 1,0, 1," 

30.  navy:  an, 1,0,1," 

31.  ARMY:  AN, 1,0,1," 

32. RESNGUSMC:  AN, 1,0,1," 

33.  MINORITY:  AN, 1,0,1," 

34.  FEMALE:  AN, 1,0,1," 

35. RANKC:  AN, 1,0,1," 

36.  NONLINE:  AN, 1,0,1," 

37.SRPME:  AN, 1,0,1, " 

38.  TOPPER:  AN, 1,0,1," 

39. C0MMSK:  AN, 1,0,1," 

40. TAC0PSK:  AN, 1,0,1," 

41  .STRATOPSK:  AN,1,0,1," 

42. PrBSSK:  AN, 1,0,1," 

43. ACQL0G:  AN, 1,0,1," 


44.SL1 : 

AN,  1,0.1," 

II 

45.SL2: 

AN, 1,0,1," 

II 

46.SL3: 

AN, 1,0,1," 

II 

47.SLX: 

AN, 1,0, 1, " 

•  1 

48.ASL1 : 

AN, 1,0,1," 

II 

49.ASL2: 

AN, 1,0, 1, " 

tl 

50.ASL3: 

AN, 1,0,1," 

II 

51.ASLX: 

AN, 1,0, 1, " 

•  1 

52. SOS: 

AN, 1,0,1," 

II 

53.ARI: 

AN, 1,0, 1, " 

II 

54.SR0: 

AN, 1,0, 1, " 

II 

55. cc: 

AN, 1,0,1," 

II 

56. lo: 

AN, 1,0,1," 

II 

57.NRANK: 

r,2,0, 10, " 

58.ND0R: 

N,  6,0, 991231, " 

59 . SORTKE Y :  N , 8 , 0 , 99999999 ,  " 

II 


Record  size  (bytes)  =  158 
Total  records  ~  141 


Attribute  summary  of  dataset  CINTER 


I. NAME;  AN,  27,0, 27,  ■' 

2.SSAN:  AN, 9, 0,9," 

3. ST. no:  an, 4, 0,4," 

4.  DOR:  AN, 6, 0,6," 

5. MIX.1:  AN, 2, 0,2," 

6.  MIX. 2:  AN, 2, 0,2," 

7.  MIX. 3:  AN, 2, 0,2," 

8. MIX.X:  AN, 2, 0,2," 

9.  WING:  AN, 1,0,1," 

10. USAF:  AN, 1,0,1," 

II.  NOMAST:  AN, 1,0,1," 

12.S0RG:  AN, 1,0,1," 

13.  PILOT:  AN, 1,0,1," 

14.  NAVIGATOR:  AN, 1,0,1," 

15. SINGLE:  AN, 1,0,1," 

16. USAFA:  AN, 1,0,1," 

17.  navy:  am, 1,0,1," 

18.  ARMY:  AN  1 ,0,  1 ,  " 

19. RESNGUSMC:  AN, 1,0,1," 

20.  MINORITY:  AN, 1,0,1," 

21.  FEMALE:  AN, 1,0,1," 

22. RANKC:  AN, 1,0,1," 

13.  NONLINE:  AN, 1,0, 1," 

24.SRPME:  AN, 1,0,1," 

25.  TOPPER:  AN, 1,0,1," 

26. C0MMSK:  AN, 1,0,1," 

27 .  '3TRAT0PSK :  AN ,  1 , 0 ,  1 ,  " 

28 . 1 ACKOPSK :  AN , 1 , 0 , 1 , " 

29.PPBSSK:  AN, 1,0,1, 


II 


•  • 


II 


II 


30 .  ACQLOG :  AN , 1 , 0 , 1 , 

31.SL1:  AN, 1,0, 1," 

32.SL2:  AN, 1,0, I," 

33.SL3:  AN, 1,0,1,” 

34.SLX:  AN, 1,0,1," 

35. ASL1:  AN, 1,0,1," 

36. ASL2:  AN, 1,0,1," 

37. ASL3:  AN, 1,0, 1," 

38. ASLX:  AN, 1,0,1," 

39. SOS:  AN, 1,0,1," 

40.ARI:  AN, 1,0,  1," 

41.SR0:  AN, 1,0,1," 

42. CC:  AN, 1,0,1," 

43.10:  AN, 1,0,1," 

Record  size  (bytes)  = 
Total  records  =  141 


APPENDIX 


D 


3MSS  ZIBA3 IC  ScDUir- 


sa 


100 

RFM 

105 

REM 

********************************************************************* 

110 

REM 

★  ★ 

115 

REM 

★  * 

PROGRAM  NAME: 

STUDENT  MIX  SOFTWARE  SYSTEM 

(SMSS) 

120 

REM 

★  * 

FILE  NAME; 

SMSS.BAS 

DATE; 

18  FEB  1906 

125 

P.EM 

*  * 

FUNCTION; 

MAIN  SYSTEM  MENU 

130 

REM 

*  * 

COMPUTER; 

ZENITH  120 

LANGUAGE; 

BASIC 

135 

REM 

★  * 

AUTHOR; 

KEN  RITCHHART 

140 

REM 

*  * 

145  REM  ***************************************************>****************** 

150  DIM  WINC$(5,6) 

155  DIM  STAT( 10,  5,12) 

16C  DIM  STAT$(22) 

165  DIM  RULE$(22) 

170  DIM  SEMI(5,12,15,3) 

175  COMMON  MIX,  SFLG,  WING$(),  STAT(),  SEMI(),  RULE$(),  FLE$,  TRONS,  SU%,  MU% 

180  COSUB  945 

185  GDAT  =  0!  TRONS  =  1 

190  BLK$  =  " 

195  EMESSl$  =  "ERROR  -  THE  FIRST  &  LAST  '•+SUNIT$  +  "  NUMBERS  DON'T  AGREE  WITH  TOT, 
200  EMESS2$="YOU  ARE  MISSING  SOME  "+SUMIT$+"  FROM  THIS  "+MUNIT$ 

205  EMESS3$="ENTER  THE  MISSING  UNIT" 

210  GOSUB  2850 

215  IF  SFLG  =  1  THEN  GDAT  =  1:  GOSUB  2075 
220  REM  SMSS.BAS 
225  CLS 

230  GOSUB  3125 

235  SCREEN  0,1:  LOCATE  1,1 

240  PRINT  "  SMSS  MAIN  MENU 

245  PRINT  "  SCREEN  ,0 

250  LOCATE  3,31:  PRINT  "WELCOME  TO  THE" 

255  LOCATE  4,25:  PRINT  SCHOOL? 

260  LOCATE  6,23:  SCREEN  ,1 

265  PRINT  "STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS)" 

270  SCREEN  ,0:  LOCATE  8,25;  PRINT  "CREATED  BY;  MAJOR  KEN  RITCHHART" 

275  LOCATE  9,37;  PRINT  "MAJOR  BOB  SIMMONS" 

280  LOCATE  11,10;  PRINT  "ENTER  THE  NUMBER  FOR  THE  DESIRED  OPTION  -  " 

285  LOCATE  13,20;  PRINT  "1)  SYSTEM  CONFIGURATION" 

290  LOCATE  14,20:  PRINT  "2)  MIX  ASSIGNMENT  RULES" 

295  LOCATE  15,20:  PRINT  "3)  RUN  THE  MIX  PROGRAMS" 

300  LOCATE  16,20;  PRINT  "4)  REVIEW  MIX  DISTRIBUTION  STATISTICS" 

305  LOCATE  18,20:  PRINT  "6)  EXIT  TO  SYSTEM  LEVEL" 

310  LOCATE  17,20;  PRINT  "5)  REGISTER  MANUAL  CHANCES  TO  SEMINARS" 

315  LOCATE  20,10;  PRINT  "ENTER  YOUR  CHOICE:  "; 

320  INPUT  C 

325  LOCAT!  l‘',2:';  ITINT  " 

330  IF  C  =  1  THEN  GOSUB  370 
335IFC=2  THEN  GOSUR  980 
340  IF  C  =  3  THEN  GOSUB  1585 

345  IF  C  =  4  THEN  GOSUB  2075 


59 


350 

355 

360 

365 

37C 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 


IF  C  =  5  THEN  CLOSE:  CHAIN  "SMSSUPDT" 

IF  C  =  6  THEN  CLOSE:  CLS :  SYSTEM 

GOTO  220 

END 

REM 

REM  *********************************************************************** 
REM  **  ** 

REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  ( SMSS )  ** 

REM  **  FILE  NAME:  SMSSl.BAS  DATE:  27  NOV  1985  ** 

REM  **  FUNCTION:  SYSTEM  CONFIGURATION  MENU  ** 

REM  **  COMPUTER:  ZENITH  120  LANGUAGE:  BASIC  ** 

REM  **  AUTHOR:  KEN  RITCHHART  ** 

REM  **  ** 

*********************************************************************** 

CLS 

GOSUB  3125 

SCREEN  ,1:  LOCATE  1,1 

PRINT  "  SYSTEM  CONFIGURATION  MENU  -  SMSSl"; 


440 

PRINT  ' 

>1 

SCREEN  ,0 

445 

LOCATE 

3,  10: 

PRINT 

"THE  DEFAULTS  FOR  THIS  SYSTEM  SET  UP  FOR  ACSC .  YOU 

450 

LOCATE 

4,  10: 

PRINT 

"CHANGE  THE  NAMES  OF  THE 

ORGANIZATIONAL  UNITS  AND 

455 

LOCATE 

5,  10; 

PRINT 

"NUMBER  OF  UNITS  BELOW  - 

OR  HIT  RETURN  TO  LEAVE  AS 

460 

SCREEN 

.1 

465 

LOCATE 

7,10; 

PRINT 

"SCHOOL  NAME;"; 

470 

LOCATE 

8,  10; 

PRINT 

"MAJOR  UNITS:"; 

475 

LOCATE 

8,  50; 

PRINT 

"NUMBER  OF  UNITS;"; 

480 

LOCATE 

9, 10; 

PRINT 

"NEXT  SUBUNITS;"; 

485 

LOCATE 

9,50; 

PRINT 

"TOTAL  #  OF  SUBUNITS;"; 

490 

SCREEN 

,0 

495 

LOCATE 

7,25; 

PRINT 

SCHOOL? ; 

500 

LOCATE 

8,25: 

PRINT 

MUNIT?  ; 

505 

LOCATE 

8,  70; 

PRINT 

MU%; 

510 

LOCATE 

9,  25; 

PRINT 

SUNIT$; 

515 

LOCATE 

9,  73; 

PRINT 

SU%;;  SCREEN  ,1 

520 

LOCATE 

12,8; 

PRINT 

MUNIT?; 

525 

LOCATE 

11,10: 

PRINT 

"NUMBER  OF"; 

530 

LOCATE 

12,10; 

PRINT 

SUNIT$ ; "S" ; 

535 

LOCATE 

11,30; 

PRINT 

MUNIT?  ; 

540 

LOCATE 

12,  3  .: 

rEj:  - 

'TEWIORITY"  ; 

545 

LOCATE 

11,43: 

PRINT 

"FIRST"  ; 

550 

LOCATE 

12,43: 

PRINT 

SUNITS  ; 

555 

LOCATE 

11,55: 

print 

"LAST"  ; 

560 

LOCATE 

12,55; 

PRINT 

SUNIT?  ; 

565 

LOCATE 

11,66: 

PRINT 

"MISSING " ; 

570 

LOCATE 

12,66: 

PRINT 

SUNIT$;"S";;  SCREEN  ,  0 

575 

FOR  1% 

=  1  TO 

MU% 

580  LOCATE  13+1%, 10 
585  LOCATE  13+1%, 22 
590  LOCATE  13+1%, 34 
595  LOCATE  13+1%, 45 


PRINT  WING${I%, 1); 
PRINT  WING$(I%,2) 
PRINT  WINC$(I%, 3) 
PRINT  V;ING$(I%,4) 


60 


600  LOCATF  13+1%, 58:  PRINT  vaNG$(I%,5); 

605  LOCATE  13+1%, 67:  PRINT  WING$(I%,6); 

610  NEXT  1% 

615  LOCATE  20,10:  PRINT  "ENTER  C)  TO  CHANGE  THE  DEFAULTS"; 

620  LOCATi:  21,16:  PRINT  "X)  TO  EXIT  RACK  TO  THE  PREVIOUS  MENU."; 

625  LOCATE  23,10:  PRINT  "ENTER  YOUR  CHOICE:  "; 

630  IF  FLAG  =  1  THEN  FLAG  =  0:  RETURN 
635  INPUT  CH$ 

640  LOCATE  22,16:  PRINT  " 

645  IF  CH$  =  "C"  THEN  GOTO  675 

650  IF  CH$  =  "c"  THEN  GOTO  675 

655  IF  CH$  =  "X"  THEN  RETURN 

660  IF  CH$  =  "x"  THEN  RETURN 

665  LOCATE  22,16:  SCREEN  ,1:  PRINT  "INCORRECT  CHOICE  -  TRY  AGAIN";:  SCREEN  ,0 
670  GOTO  625 

675  LOCATE  7,25:  INPUT  "",  TEMP$ 

680  IF  TEMP$  <>  ""  THEN  SCHOOL$  =  TEMP$ 

685  LOCATE  8,25:  INPUT  "",  TEMP$ 

690  IF  TEMP$  <>  ""  THEN  MUNIT$  =  TEMP$ 

695  LOCATE  8,71:  INPUT  "",  TEMPI 
700  IF  TEMPI  <>  0  THEN  MUI  =  TEMPI 
705  LOCATE  9,25:  INPUT  "",  TEMP$ 

710  IF  TEMP$  <>  ""  THEN  SUNT;r$  =  TEMPS 
715  LOCATE  9,74:  INPUT  "",  TEMPI 
720  IF  I’EMPI  <>  0  THEN  Sf’l  =  TEMPI 
725  FOR  I  =  7  TO  18 
730  LOCATE  1,8:  PRINT  " 

735  PRINT  " 

740  NEXT  I 

745  FLAG  =  1:  GOSUB  460 
750  FOR  II  =  1  TO  MUI 

755  LOCATE  13+11,10:  INPUT  TEMPS 

760  IF  TEMPS  <>  ""  THEN  WINGS (11,1)  =  TEMPS 

765  LOCATE  13+11,22:  INPUT  "",  TEMPS 

770  IF  TEMPS  <>  ""  THEN  WINGS {II, 2)  =  TEMPS 

775  LOCATE  13+11,34:  INPUT  "",  TEMPS 

700  IF  TEMPS  <>  ""  THEN  WINGS (1%, 3)  =  TEMPS 

785  LOCATE  13+11,45:  INPUT  "",  TEMPS 

790  IF  TEMPS  <>  ""  THEN  WINGS (II, 4)  =  TEMPS 

795  LOCATE  13+11,58:  INPUT  "",  TEMPS 

300  IF  TEMPS  <>  ""  then  WINGS(II,5)  =  TEMPS 

805  W2  =  VAL(WINGS(I%,  2) ) :  W3  =  VAL ( WINGS (I  %  ,  3 ) ) 

810  W4  =  VAL(WINGS(II,4) ) :  W5  =  VAL ( WINGS ( I  % ,  5 ) ) 

815  IF  (W5  -  W4  +  1)  >  W2  THEN  GOTO  820  ELSE  GOTO  855 

820  LOCATE  19,10:  PRINT  EMESS2S; 

825  LOCATE  20,10:  PRINT  EMESS3S; 

030  LOCATE  13+11,67:  INPUT  "",  TEMPS 

035  LOCATE  19,10:  PRINT  DLKS  +  BLKS 

840  LOCATE  20,10:  PRINT  BLKS  +  BLKS 

845  IF  TEMPS  <>  ""  THEN  WINGS (II, 6)  =  TEMPS 


61 


850  GOTO  865 

855  WING$U%,6)  = 

860  LOCATE  13+1%, 67:  PRINT  " 

865  IF  (W5  -  W4  +  1)  <  V;2  THEM  LOCATE  18,12:  PRINT  EMFSSl  $ ;  :  GOTO  765 

870  LOCATE  18,12:  PRINT  BLK$  +  DLK$  +  " 

875  NEXT  1% 

880  GOPUB  890 
885  CCTO  495 

890  REM  ***  WRITE  OUT  SCHOOL  DATA  *** 

895  OPEN  "O",  ,  "F:S^i.«:CHOOL.DAT" 

900  PRINT  #1,  SCHOOLS;",";  MuNlT$;",";  SUNIT$;",";  SU% 

9l'n  i  OR  I  =  1  TO  MU% 

910  PRINT  #1,  WINGS (I, I);",";  W  MGS ( 1 , 2  )  ;  "  ,  "  ;  WINGS ( 1 , 3 ) ; " ,  "  ; 

915  PRINT  #1,  WINGS(I,4) ; ;  WINGS ( 1 , 5 ) ;  "  , " ;  WINGS (I, 6) 

920  NEXT  I 
925  CLOSE  #1 
930  RETURN 

935  REM  ***  END  SCHOOL  DATA  OUTPUT  *** 

940  REM  ***  RETRIEVE  SCHOOL  DATA  *** 

945  OPEN  "I", #1, "F: SMSCHOOL.DAT" 

950  INPUT  #1,  SCHOOLS,  MUNITS,  SUNITS,  MU%,  SU% 

955  FOR  I  =  1  TO  MU% 

960  INPUT  #1,  WINGS  (1,1),  V.'INGS  { 1 , 2  )  ,  WINGS  (I,  3),  WINGS  (I,  4),  WINGS  (I,  5), 
WINGS (I, 6) 

965  NEXT  I 

970  CLOSE  #1:  RETURN 

975  REM  ***  END  RETRIEVE  SCHOOL  DATA  *** 

980  REM  ***  SMSS2.DAS  *** 

985  REM  *********************************************************************** 

990  REM  **  ** 

995  REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS)  ** 


1000 

REM 

*  ★ 

FILE  NAME: 

SMSS 2. BAS 

DATE: 

27  NOV  1985 

* 

1005 

REM 

*  -k 

FUNCTION: 

MIX  ASSIGNMENT 

RULES  MENU 

•k 

1010 

REM 

*  * 

COMPUTER: 

ZENITH  120 

LANGUAGE : 

BASIC 

it 

1015 

REM 

*  * 

AUTHOR: 

KEN  RITCHHART 

★ 

1020 

REM 

★  ★ 

* 

1025  REM  ********************************************************************** 

1030  BLKS  =  " 

1035  CLS 

1040  GOSUB  3125 

1045  GOSUB  1550 

1050  SCREEN  ,1:  LOCATE  1,1 

1055  PRINT  "  MIX  ASSIGNMENT  RULES  MENU  -  SMSS2"; 

1060  PRINT  " 

1065  SCREEN  ,0:  LOCATE  4,10 

1070  PRINT  "1)  PRIORITY  GIVEN  TO  COMMUNICATION  SKILLS: 

1075  LOCATE  4,73:  PRINT  RULES(l);:  LOCATE  5,10 
1080  PRINT  ”2)  PRIORITY  GIVEN  TO  PPBS  SKILLS: 

1085  LOCATE  5,73:  PRINT  RULES(2);:  LOCATE  6,10 

1090  PRINT  "3)  PRIORITY  GIVEN  TO  TACTICAL  OPERATION  SKILLS:  " ; 

1095  LOCATE  6,73:  PRINT  RULES (3);;  LOCATE  7,10 
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1100  PRINT  "4)  ARI  STUDENTS  DO  NOT  CHANGE  SEMINARS: 

1105  LOCATE  7,73:  PRINT  RULE${4);:  LOCATE  8,10 
1110  PRINT  "5)  SOS  STUDENTS  DO  NOT  CHANGE  SEMINARS: 

1115  LOCATE  8,73:  PRINT  RULE$(5);:  LOCATE  9,10 

1120  PRINT  "6)  10 'S  DO  NOT  CHANGE  SEMINARS  (OR  'X'  TO  DELETE): 

1125  LOCATE  9, '’3:  PRINT  RULE$(6);:  LOCATE  10,10 

1130  PRINT  "7)  PRIORITY  GIVEN  TO  STRATEGIC  OPERATION  SKILLS:  "  ; 

1135  LOCATE  1G,73:  PRINT  RULE$(7);:  LOCATE  11,10 

1140  PRINT  "B)  STUDENTS  MAY  NOT  HAVE  BEEN  ASSIGNED  TO  THIS  SEMINAR  BEFORE: 

1145  LOCATE  11,73:  PRINT  RULE$(8);:  LOCATE  12,10 

1150  PRINT  ”9)  MAX  #  OF  STUDENTS  PREVIOUSLY  ASSIGNED  WITH; 

1155  LOCATE  12,73:  PRINT  RULE$(9);:  LOCATE  13,10 
1160  LOCATE  14,10 

1165  PRINT  "11)  EVENLY  DISTRIBUTE  THE  FOLLOWING  STUDENTS: 

1170  LOCATE  15,15;  PRINT  "ARMY";;  LOCATE  15,35;  PRINT  RULE$(11); 

1175  LOCATE  15,40;  PRINT  "NAVY";:  LOCATE  15,55;  PRINT  RULE$(12); 

1180  LOCATE  15,60:  PRINT  "RATED";;  LOCATE  15,75;  PRINT  RULE$(13); 

1185  LOCATE  16,15:  PRINT  "RES , NG , MC" ; ;  LOCATE  16,35:  PRINT  RULE$(14); 

1190  LOCATE  16,40;  PRINT  "BY  SEX";;  LOCATE  16,55;  PRINT  RULE$(15); 

1195  LOCATE  16,60;  PRINT  "BY  RACE";;  LOCATE  16,75:  PRINT  RULE$(16); 

1200  LOCATE  17,15;  PRINT  "NON  LINE";;  LOCATE  17,35:  PRINT  RULE$(17); 

1205  LOCATE  17,40:  PRINT  "BY  RANK";:  LOCATE  17,55;  PRINT  RULE$(18); 

1210  LOCATE  17,60:  PRINT  "USAFA  GRADS";:  LOCATE  17,75:  PRINT  RULE$(19); 

1215  LOCATE  18,15:  PRINT  "ED.  LEVEL";:  LOCATE  18,35:  PRINT  RULE$(20); 

1220  LOCATE  18,60:  PRINT  "SINGLE/UNAC" ;  ;  LOCATE  18,75:  PRINT  RULE$(22); 

1225  SCREEN  ,1 

1230  LOCATE  19,10:  PRINT  "CODES:  A)  ALWAYS,  P)  PERFERED,  D)  DON'T  CARE" 

1235  SCREEN  ,0 

1240  LOCATE  23,10:  PRINT  BLK$; 

1245  LOCATE  20,10;  PRINT  "ENTER  C)  TO  CHANGE  THE  DEFAULTS"; 

12  50  LOCATE  21,16;  PRINT  "X)  TO  EXIT  BACK  TO  THE  PREVIOUS  MENU . "  ; 

1255  LOCATE  23,10:  PRINT  "ENTER  YOUR  CHOICE;  "; 

1260  IF  FLAG  =  1  THEN  FLAG  =  0:  RETURN 
1265  INPUT  CH$ 

1270  LOCATE  22,16:  PRINT  " 

1275  IF  CH$  =  "C"  THEN  GOTO  1305 

1280  IF  CH$  =  "c"  THEN  GOTO  1305 

1285  IF  CH$  =  "X"  THEN  RETURN 

1290  IF  CHS  =  "x"  THEN  RETURN 

1295  LOCATE  22,16:  SCREEN  ,1;  PRINT  "INCORRECT  CHOICE  -  TRY  AGAIN";:  SCREEN  ,0 
1300  GOTO  1255 

1305  REM  CHANGE  RULE  VALUE 
1310  SCREEN  ,  1 
1315  FOR  I  =  1  TO  9 

1320  LOCATE  3+1,73;  INPUT  "",  TEMPS 

1325  GOSUB  1410 

1330  IF  FLAG  =  1  THEN  GOTO  1320 

1335  NEXT  I 

1340  I  =  11 

1345  FOR  J  =  15  TO  IB 
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1350  FOR  K  =  35  TO  75  STFP  20 


1355 

IF  I  >  22 

THEN 

GOTO 

1385 

1360 

IF  I  =  10 

OR  I  = 

21 

GOTO  1380 

1365 

LOCATE  J,K: 

INPUT 

II  II 

i 

TEMP? 

1370 

GOSUB  1410 

1375 

IF  FLAG  =  1 

THEN 

GOTO 

1365 

1380 

1  =  1  +  1 

1385 

NEXT  K 

1390  NEXT  J 
1395  SCREEN  ,0 
1400  GOSUB  1510 
1405  GOTO  1240 

1410  REM  ***  PROCESS  INPUT  CODES  *** 

1415  IF  FLAG  =  1  THEN  LOCATE  3,10:  SCREEN  ,0:  PRINT  BLK$+"  " ;  SCREEN  ,1 

1420  IF  TEMP$  =  ""  GOTO  1500 

1425  IF  I  =  9  THEN  GOTO  1490 

1430  IF  I  =  10  THEN  GOTO  1490 

1435  IF  TEMP$  =  "A"  THEN  GOTO  1490 

1440  IF  TEMP$  =  "a"  THEN  TEMP$  =  "A":  GOTO  1490 

1445  IF  TEMP$  =  "P"  THEN  GOTO  1490 

1450  IF  TEMP$  =  "p"  THEN  TEMP$  =  "P":  GOTO  1490 

1455  IF  TEMP$  =  "D"  THEN  GOTO  1490 

1460  IF  TEMP$  =  "d"  THEN  TEMP$  =  "D”:  GOTO  1490 

1465  IF  TEMP$  =  "X"  AND  1=6  THEN  GOTO  1490 

1470  IF  TEMP?  =  "x"  AND  I  =  6  'xHEN  TEMP?  =  "X":  GOTO  1490 

1475  LOCATE  3,10:  PRINT  "ERROR  -  INCORRECT  ENTRY  TRY  AGAIN" 

1480  FLAG  =  1 

1485  GOTO  1500 

1490  FLAG  =  0 

1495  RULE?(I)  =  TEMP? 

1500  RETURN 

1505  REM  ***  END  CODE  PROCESSING  *** 

1510  REM  ***  WRITE  OUT  RULES  DATA  *** 

1515  OPEN  "O" , #2, "F;SMRULE, DAT" 

1520  FOR  I  =  1  TO  22 

1525  PRINT  #2,  RULE? ( I )  ;  "  ,  "  ; 

1530  NEXT  I 
1535  CLOSE  #2 
1540  RETURN 

1545  REM  ***  END  RULES  DATA  OUTPUT  *** 

1550  REM  ***  RETRIEVE  RULES  DATA  *** 

1555  OPEN  "I", #2, "F:SMRULE.DAT" 

1560  FOR  I  =  1  TO  22 
1565  INPUT  #2,  RULE?(I) 

1570  NEXT  I 

1575  CLOSE  #2:  RETURN 

1580  REM  ***  END  RETRIEVE  RULES  DATA  *** 

1585  REM  ***  SMSS3.BAS  *** 

1590  REM  ********************************************************************** 

1595  REM  **  * 
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1600  REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS) 

1605  REM  **  FILE  NAME:  SMSS3.BAS  DATE:  27  NOV  1985 

1610  REM  **  FUNCTION;  RUNNING  THE  MIX  -  MENU 

1615  REM  **  COMPUTER:  ZENITH  120  LANGUAGE:  BASIC 

1620  REM  **  AUTHOR;  KEN  RITCHHART 

1625  REM  ** 

1630  REM  ***************************************************************>'**** 

1635  CLS 

1640  GOSUB  3125 

1645  SCREEN  ,1:  LOCATE  1,1 

1650  PRINT  "  RUNNING  THE  MIX  MENU  -  SMSS3"; 

1655  PRINT  " 

1660  SCREEN  ,0;  LOCATE  4,10 

1665  PRINT  "THIS  MENU  PROVIDES  YOU  WITH  THE  CAPABILITY  TO  RUN  THE  MIX  PROGRAM 
1670  LOCATE  5,10 

1675  PRINT  "AND  PRODUCE  A  STUDENT  DISTRIBUTION  BASED  ON  THE  RULES  THAT  YOU  "; 
1680  LOCATE  6,10 

1685  PRINT  "TURN  ON  OR  OFF.  IF  YOU  CHOOSE  A  STANDARD  MIX  (OPTION  A,  B,  OR  C) 
1690  LOCATE  7,10 

1695  PRINT  THE  RULES  WILL  BE  RESET  TO  THE  STANDARD  DEFAULTS  FOR  THAT  MIX." 
L700  LOCATE  8,10 

1705  PRINT  "YOU  CAN  THEN  CUSTOMIZE  OR  CHANGE  THE  RULES  AS  YOU  SEE  FIT.  YCU  " 
1710  LOCATE  9,10 

1715  PRINT  "SHOULD  USE  OPTION  D)  SPECIAL  -  IF  YOU  WANT  TO  DO  SOMETHING  LIKE  " 
1720  LOCATE  10,10 

1725  PRINT  "ADDING  A  MIX  4  OR  USING  THE  EXISTING  RULES  WITHOUT  RESETING.  "; 
1730  LOCATE  11,10:  SCREEN  ,1 

1735  PRINT  "PLEASE  NOTE:  YOU  MUST  RUN  THE  DATA  EXTRACTION  PROGRAM  UNDER  THE"; 
1740  LOCATE  12,10;  SCREEN  ,1 

1745  PRINT  "CONDOR  DBMS  SMSS  HELP  MENU  BEFORE  EXECUTING  T'^IS  PROGRAM."; 

1750  LOCATE  14,10;  SCREEN  ,0 
1755  PRINT  "OPTIONS;"; 

1760  LOCATE  16,15;  PRINT  "A)  MIX  1"; 

1765  LOCATE  17,15:  PRINT  "B)  MIX  2"; 

1770  LOCATE  18,15;  PRINT  "C)  MIX  3"; 

1775  LOCATE  19,15:  PRINT  "D)  SPECIAL"; 

1780  LOCATE  20,15:  PRINT  "X)  RETURN  TO  MAIN  MENU"; 

1785  LOCATE  22,10:  PRINT  "ENTER  YOUR  CHOICE:  ";:  INPUT  "",CH$ 

1790  IF  CH$  =  "A"  THEN  GOTO  1845 

1795  IF  CH$  =  "a"  THEN  GOTO  1845 

1800  IF  CH$  =  "B"  THEN  GOTO  1885 

1805  IF  CH$  =  "b"  THEN  GOTO  1885 

1810  IF  CH?  =  "C"  THEN  GOTO  1930 

1815  IF  CH$  =  "c"  THEN  GOTO  1930 

1820  IF  CH$  =  "D"  THEN  GOTO  1990 

1825  IF  CH§  =  "d"  THEN  GOTO  1990 

1830  IF  CH$  =  "X"  THEN  RETURN 
1835  IF  CH$  =  "x"  THEN  RETURN 
1840  GOTO  1585 
1845  GOSUB  2035 


«5 


1850  MIX  =  1 

1855  RULE$(10)  =  STR$(SU%  +  MU%  +  1) 

1860  GOSUB  1510 
1865  CLS:  GOSUB  3125 

1870  SCREEN  ,1:  LOCATE  3,30:  PRINT  "MIX  1  RULES";:  SCREEN  ,0 

1875  GOSUB  1050 

1880  GOTO  2020 

1885  GOSUB  2035 

1890  MIX  =  2 

1895  RULE$(1)  =  "D" 

1900  RULE$(2)  =  "A" 

1905  GOSUB  1510 
1910  CLS;  GOSUB  3125 

1915  SCREEN  ,1:  LOCATE  3,30:  PRINT  "MIX  2  RULES";:  SCREEN  ,0 

1920  G'^SUB  1050 

1925  GoTO  2020 

1930  GOSUB  2035 

1935  MIX  =  3 

1940  RULE$(1)  =  "D" 

1945  RULE$(3)  =  "A" 

1950  RULE$(5)  =  "P" 

1955  RULE$(6)  =  "X" 

1960  RULE${22)  =  "A" 

1965  GOSUB  1510 
1970  CLS:  GOSUB  3125 

1975  SCREEN  ,1:  LOCATE  3,30:  PRINT  "MIX  3  RULES";:  SCREEN  ,0 
1980  GOSUB  1050 
1985  GOTO  2020 

1990  LOCATE  19,10:  PRINT  "WHICH  MIX  IS  THIS  RUN  FOR?  ";:  INPUT  "",  MIX$ 

1995  MIX  =  VAL(MIX$) 

2000  CLS:  GOSUB  3125 

2005  LOCATE  3,30:  SCREEN  ,1:  PRINT  "SPECIAL  RUN  FOR  MIX  ";MIX;:  SCREEN  ,0 
2010  GOSUB  1050 
2015  GOTO  2020 

2020  REM  ***  MIXING  STUDENT  ROUTINE  *** 

2025  CHAIN  "SMSSMIXI" 

2030  RETURN 

2035  REM  ***  SET  DEFAULT  RULES  *** 

2040  RULE${1)  =  "A":  RULES ( 2 )  =  "D":  RULE$(3)  =  "D":  RULES (4)  =  "A" 

2045  RULES (5)  =  "A":  RULES (6)  =  "A":  RULES ( 7 )  =  "A";  RULES (0)  =  "A" 

2050  RULES(9)  =  "1":  RULES(IO)  =STRS(SU%):  RULE${1I)  =  "A":  RULES(12)  =  "A" 
2055  RULES (13)  =  "A":  RULES (14)  =  "D":  RULES (15)  =  "A":  RULES (16)  =  "A" 

2060  RULES(17)  =  "A":  RULES(18)  =  "D" :  RULES(19)  =  "D":  RULES(20)  =  "D" 

2065  RULES (21)  =  "D" :  RULES (22)  =  "A" 

2070  RETURN 
2075  REM 

20^0  ki:m  **********************************************************************' 

2085  REM  **  *' 

2090  REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  ( SMSS ) 

2095  REM  **  FILE  NAME:  SMSS4.BAS  DATE:  13  DEC  1985  *’ 

2100  REM  **  FUNCTION:  REVIEW  MIX  STATISTICAL  DISTRIBUTION 

2105  REM  **  COMPUTER:  ZENITH  120  LANGUAGE:  BASIC  * 

2110  REM  **  AUTHOR:  KEN  RITCHHART  *’ 
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2115  REM  ** 

2125  CLS 

2130  GOSUE  3125 


2135 

SCREEN  ,1:  LOCATE  1,1 

2140 

PRINT  " 

REVIEW  MIX  STATISTICS  MENU  -  SMSS4 

2145 

PRINT  " 

••  • 

* 

2150 

SCREEN  ,0:  LOCATE  4,10 

2.55 

IF  GDAT  >  0  GOTO  2170 

2160 

GOSUB  2910 

2165 

GDAT  =  1 

2170 

LOCATE  10,10 

:  PRINT  "STATISTICAL  OPTIONS:  " 

* 

2175 

LOCATE  12,15 

:  PRINT  "A)  REVIEW  "; SCHOOLS;" 

BY  ";MUNITS; 

2180 

LOCATE  13,15 

:  PRINT  "B)  REVIEW  ";MUNITS;"S 

BY  ";SUNITS; 

2185 

LOCATE  14,15 

:  PRINT  "X)  RETURN  TO  PREVIOUS 

MENU" 

2190 

LOCATE  20,10 

:  PRINT  "ENTER  YOUR  CHOICE:  ";: 

INPUT  "",CHS 

2195 

IF  CHS  =  "A" 

THEN  GOSUB  2295 

2200 

IF  CHS  =  "a" 

THEN  GOSUB  2295 

2205 

IF  CHS  =  "B" 

THEN  GOTO  2230 

2210 

IF  CHS  =  "b" 

THEN  GOTO  2230 

2215 

IF  CHS  =  "X" 

THEN  RETURN 

2220 

IF  CHS  =  "x" 

THEN  RETURN 

2225 

GOTO  2075 

2230 

LOCATE  15,18: 

PRINT  "WHICH  ";MUNITS;"  DO  YOU 

WISH  TO  REVIEW?  "; 

2235  FOR  I  =  1  TO  MU% 

2240  MOD  =  ((1/4)  -  INT(l/4))  *  4:  IF  MDD  =  0  THEN  MOD  =  4 

2245  LOCATE  (15  +  INT( ( l/4)  +  . 9) ) ,  ( 5+(MDD*15) ) :  PRINT  WING$(I,1); 

2250  NEXT  I 

2255  LOCATE  17+(MU%/4) , 18:  PRINT  "PLEASE  TYPE  IN  THE  "?MUNIT$;"  YOU  DESIRE  " 
2260  INPUT  "",CH$:  WING  =  0 
2265  FOR  I  =  1  TO  MU% 

2270  IF  CHS  =  WINGSd.l)  THEN  WING  =  I 

2275  NEXT  I 

2280  IF  WING  =  0  THEN  PRINT  "INCORRECT  CHOICE  -  TRY  AGAIN";:  GOTO  2255 
2285  GOSUB  2530 
2290  GOTO  2075 

2295  REM  DISPLAY  SCHOOL  STATISTICS 

2300  CLS 

2305  GOSUB  3125 

2310  SCREEN  ,1:  LOCATE  1,30:  PRINT  "MIX  STATISTICS  -  OVERALL  SCHOOL  LEVEL"; 
2315  LOCATE  3,5:  PRINT  "ATTRIBUTE"; 

2320  FOR  I  =  1  TO  MU% 

2325  LOCATE  3,  2 5+INT ( ( 55/MU% ) * ( I-l ) ) ;  PRINT  WING$ ( I , 1 ) ; 

2330  NEXT  I 

2335  SCREEN  ,0 

2340  FOR  I  =  1  TO  18 

2345  LOCATE  3+1,5:  PRINT  STAT$(I) 

2350  FOR  J  =  1  TO  MU% 

2355  LOCATE  3+1 , 24+INT ( ( 55/MU% ) * ( J-1  )  )  :  PRINT  STAT(I,J,0); 
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2360  NEXT  J 

2365  NEXT  I 

2370  LOCATE  23,10:  PRINT  "WOULD  YOU  LIKE  A  HARDCOPY  PRINT  OF  THIS?  (Y/N) 

2375  INPUT  CH$ 

2380  IF  CH$  =  "Y"  THEN  GOSUB  2400 
2385  IF  CH$  *  "y"  THEN  GOSUB  2400 
2390  RETURN 

2395  REM  END  SCHOOL  STATISTICAL  DISDPLASY 
2400  REM  ***  PRINT  SCHOOL  STATISTICS 
2405  OPEN  "LPTl:"  FOR  OUTPUT  AS  #3 

2410  PRINT  #3,  SPC(25);"MIX  STATISTICS  -  OVERALL  SCHOOL  " 

2415  PRINT  #3, 

2420  PRINT  #3,  "ATTRIBUTE" ;SPC(6) ; 

2425  SP  =  INT(55/MU%) 

2430  FOR  I  =  1  TO  MU% 

2435  PRINT  #3,  SPC ( SP ) ; WING$ ( 1 ,  1 ) ; 

2440  NEXT  I 

2445  PRINT  #3,  ;  PRINT  #3, 

2450  FOR  I  =  1  TO  18 

2455  PRINT  #3,  STAT$(I);  SPC(16  -  LEN ( STAT$ { I)  )  )  ; 

2460  FOR  J  =  1  TO  MU% 

2465  IF  STAT  (I,J,0)  >  99  THEN  PRINT  #3,  SPC(SP-4);:  GOTO  2480 

2473  IF  STAT  (I,J,0)  >  9  THEN  PRINT  #3,  SPC(SP-3);:  GOTO  2480 

7475  PRINT  #3,  SPC(SP-2); 

2480  PRINT  #3,  STAT(I,J,3'; 

2485  NEXT  J 

2490  PRINT  #3, 

2495  NEXT  I 

2500  FOR  I  =  1  TO  10 

2505  PRINT  #3, 

2510  NEXT  I 
2515  CLOSE  #3 
2520  RETURN 

2525  REM  ***  END  PRINT  WING  STATISTICS  *** 

2530  REM  DISPLAY  WING  STATISTICS 

2535  CLS 

2540  GOSUB  3125 

2545  SCREEN  ,1:  LOCATE  1,30:  PRINT  "MIX  STATISTICS  -  FOR  ";MUNIT$;"  ";WIMG?(W: 

NG,1); 

2550  LOCATE  3,5:  PRINT  "ATTRIBUTE"; 

2555  SU%  =  VAL(WING$(WING, 2  )  ) 

2560  1=0 

2565  FOR  J  =  1  TO  SU% 

2570  1=1+1 

2575  IF  VAL(WING$(WING,4))+I-1  =  VAL ( WING$ ( WING , 6 ) )  THEN  1=1+1 

2580  LOCATE  3,  2 5+INT ( ( 55/SU% ) * ( J-1 ) ) :  PRINT  VAL (WING$ ( WING , 4 )) +I -1 ; 

2585  NEXT  J 
2590  1=0 

2595  SCREEN  ,0 

2600  FOR  I  =  1  TO  18 

2605  LOCATE  3+1,5:  PRINT  STAT$(I) 

2610  K  =  0 


5 


"  ■  r  »•  '  >  rj»  "JI 


)\- 


2615 
2620 
2625 
2630 
2635 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2675 
2680 
2685 
2690 
2695 
2700 
2705 
2710 
2715 
2720 
2725 
2730 
2735 
2740 
2745 
2750 
2755 
2  760 
2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820 
2825 
2830 
2835 
2840 
2845 
2850 
2855 
2860 


FOR  J  =  1  TO  SU% 

K  =  K  +  1 

IF  VAL(WING${WING,4)  )+K-l  =  VAL  ( WING$  ( VVING,  6 )  )  THEN  K  =  K  +  1 
LOCATE  3+1, 25+INT{ ( 55/SU%)* ( J-1 ) ) :  PRINT  STAT( 1 , WING , K ) ; 

NEXT  J 
NEXT  I 
l<  »  0 

LOCATE  23,10:  PRINT  "WOULD  YOU  LIKE  A  HARDCOPY  PRINT  OF  THIS?  (Y/N)  " 
INPUT  CH$ 

IF  CH$  =  "Y"  THEN  GOSUB  2680 
IF  CH$  =  "y"  THEN  GOSUB  2680 
RETURN 

HEM  END  WING  STATISTICAL  DISDPLASY 
REM  ***  PRINT  WING  STATISTICS 
OPEN  "LPTl:"  FOR  OUTPUT  AS  #3 

PRINT  #3,  SPC( 30)  ; "MIX  STATISTICS  -  FOR  ";MUNIT$;"  " ;WING$ (WING, 1 ) 
PRINT  #3, 

PRINT  #3,  "ATTRIBUTE" ;SPC(  5); 

SU%  =  VAL(WING$(WING,2)) 

SP  =  INT(55/SU%) 

1=0 

FOR  J  =  1  TO  SU% 

1  =  1  +  1 

IF  VAL(WING$(WING,4) )+I-l  *  VAL{WING$ (WING, 6) )  THEN  1=1+1 
NUM  =  VAL(WING$(WING,4))+I-1:  NUM$  »  STR$(NUM) 

PRINT  #3,  SPC(SP+1-LEN{NUM$) );NUM$; 

NEXT  J 

PRINT  #3,  :  PRINT  #3, 

FOR  I  =  1  TO  18 

PRINT  #3,  STAT$(I);  SPC(15  -  LEN ( STAT$ (I )  )  )  ; 

K  =  0 

FOP  J  =  1  TO  SU% 

K  =  K  +  1 

IF  VAL(WING$(WING,4) )+K-l  =  VAL ( WING$ ( WING, 6 ) )  THEN  K  =  K  +  1 
IF  STAT(I,WING,K)  >  99  THEN  PRINT  SPC(SP-4);;  GOTO  2800 
IF  STAT( I ,WING,K)  >  9  THEN  PRINT  #3,  SPC(SP-3);:  GOTO  2800 
PRINT  #3,  SPC(SP-2); 

PRINT  #3,  STAT(I,WING,K) ; 

NEXT  J 
PRINT  #3, 

NEXT  I 

FOR  I  =  1  TO  10 
PRINT  #3, 

NEXT  I 
CLOSE  #3 
RETURN 

REM  ***  END  PRINT  WING  STATISTICS  *** 

REM  ***  INITIALIZE  RULES  *** 

STAT$(1)  =  "COMM  SKILLS":  STAT$(2)  =  "PPBS  SKILLS" 

STAT$(3)  =  "TAC  OPS  SKILL"  ;  STAT$(4)  =  "STRAT  OPS  SKILL" 


«9 


2865 

2870 

2875 

2880 

2885 

2890 

2895 

2900 

2905 

2910 

2915 

2920 

2925 

2930 

2935 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

2980 

2985 

2990 

2995 

3000 

3005 

3010 

3015 

3020 

3025 

3030 

3035 

3040 

3045 

3050 

3055 

3060 

3065 

3070 

3075 

3080 

3085 

3090 

3095 

3100 

3105 

3110 


STAT$(5)  =  "ACQ/LOG  SKILL" :STAT$ ( 6)  =  "PILOT" 

STAT${7)  =  "NAVIGATOR":  STAT$(8)  =  "SINGLE/UNAC" 

STAT$(9)  =  "USAFA  GRADS":  STAT$U0)  =  "ARMY" 
STAT$(11)=  "RES/NG/USN/USMC":  STAT$(12)  =  "MINORITIES" 
STAT$(13)=  "FEMALES":  STAT$(14)  =  "RANK  -  CAPT" 

STAT$(15)=  "88xx/89xx/9xxx" :  STAT$(16)  =  "SR  ORG  EXP" 
STAT$(17)=  "ARI/SOS":  STAT${18)  =  "NO  MASTER  ED" 

FLE$  =  "TRIALl" 

RETURN 

REM  GET  STATISTICAL  DATA 

OPEN  "I",  #4,  "F:X"+FLE$>".DAT" 

FOR  I  =  0  TO  18 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

IF  EOF  (4)  THEM  GOTO  3010 
INPUT  #4,  STAT(I,J,K) 

NEXT  K 
NEXT  J 
NEXT  I 

FOR  I  =  0  TO  5 

FOR  J  =  0  TO  12 

FOR  K  =  0  TO  15 
FOR  L  =  0  TO  3 

IF  EOF  (4)  THEN  GOTO  3010 
INPUT  #4,  SEMI{I,J,K,L) 

NEXT  L 
NEXT  K 
NEXT  J 
NEXT  I 
CLOSE  #  4 
RETURN 

REM  END  STATISTICAL  RETRIEVAL 
REM  OUTPUT  STATS  TO  DISK 

OPEN  "O",  #4,  "F:X"+FLE$+".DAT" 

FOR  I  =  1  TO  18 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

PRINT  #4,  STAT(I,J,K) 

NEXT  K 
NEXT  J 
NEXT  I 

FOR  I  =  0  TO  5 

FOR  J  =  0  TO  12 

FOR  K  =  0  TO  15 
FOR  L  =  0  TO  3 

PRINT  #4,  SEMI(I,J,K,L) 

NEXT  L 
NEXT  K 
NEXT  J 
NEXT  I 
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3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 
3155 
3160 
3165 
3170 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 
3220 
3225 
3230 
3235 
3240 
3245 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 
3315 
3  320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 


CLOSE  #  4 
RETURN 

REM  ***  CREATE  BOX  FOR  SCREEN  *** 

SCREEN  ,  1 

LOCATE  1,1:  PRINT  " 

PRINT  " 

FOR  1%  =  1  TO  24 

LOCATE  I%,1:  PRINT  "  LOCATE  I%,80:  PRINT  "  "  ; 

NEXT  1% 

LOCATE  24,1;  PRINT  " 

PRINT  '•  "r  : LOCATE  1,1 

SCREEN  ,0:  RETURN 
REM  ***  END  BOX  *** 


REM 

REM 


* 


REM 

REM 

PROGRAM  NAME: 

STUDENT  MIX  SOFTWARE  SYSTEM 

(SMSS) 

REM 

FILE  NAME: 

SMSSBAS.TXT 

DATE: 

2  JAN 

REM 

REM 

** 

*  * 

FUNCTION; 

COMPUTER: 

DOCUMENTATION  ON 
ZENITH  120 

''MJ&BkEI: 

BASIC 

REM 

*  * 

AUTHOR; 

KEN  RITCHHART 

REM 

* 

* 


* 

* 

* 

* 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


***** 


SYSTEM  VARIABLE 
SCHOOL?  - 
MUNIT?  - 
SUNIT?  - 
MU% 

SU% 

WING$(8,6)  - 
WING$( I, 1  ) 
WING? (I, 2) 
WING?( I, 3  ) 
WING? (I, 4) 
WING?(I, 5) 
WING? (I, 6) 
RULE? (25)  -  NAME 
RULE? ( 1 ) 
RULE?(3) 

RULE? ( 5 ) 
RULE?(7) 

RULE? (9) 

RULE? ( 11 ) 
RULE? (13) 
RULE?(15) 
RULE?(17) 
RULE? ( 19) 
RULE? (21  ) 
VALUE  OF 


DOCUMENTATION  ****** 

NAME  OF  THE  SCHOOL 
NAME  OF  SCHOOL'S  MAJOR  UNITS 
NAME  OF  SCHOOL'S  MINOR  UNITS 
NUMBER  OF  MAJOR  UNITS  IN  THE 
NUMBER  OF  MINOR  UNITS  IN  THE 

CHARACTERISTICS  OF  THE  MAJOR  UNITS 

-  WING  NAME 

-  NUMBER  OF  SUBUNITS  IN  THE  WING 

-  WING  SENORITY  (1  IS  THE  HIGHEST) 

-  FIRST  SEMINAR  IN  THE  WING 

-  LAST  SEMINAR  IN  THE  WING 
MISSING  SUBUNITS  (SEMINARS)  IN  THE 


(IE  WINGS) 

(IE  SEMINAR) 
SCHOOL  (IE  4) 
SCHOOL  (IE 


44) 


-  W2 

-  W3 

-  W4 

-  W5 
WING 


OF 


CH?  -  CHOICE 


THE  RULE  USED 

-  COMM  SKILLS 

-  OPERATIONAL  SKILLS 

-  SOS  DON'T  MOVE 

-  RES/NG/USN/USMC 

-  MAX  #  PREV  STUDENTS 

-  ARMY 

-  RATED 

-  SEX 

-  NON  LINE 

-  USAFA  GRAD 

-  SENIOR  PME 
RULES?(I)  -  A)  ALWAYS, 


FOR  MIXING 
RULE? (2) 
RULE? (4) 
RULE? (6) 
RULE?(8) 
RULE? (10) 
RULE? (12) 
RULE? (14) 
PULE? ( 16) 
RULE?(18) 
RULE?(20) 
RULE? (22) 
D)  DON'T 


STUDENTS 

-  PPBS  SKILLS 

-  ARI ' S  DOMT  MOVE 

-  10 'S  DONT  MOVE 

-  DIFFRENT  SEMINAR 

-  ACQUISITION/LOG 

-  NAVY 

-  COMP 

-  RACE 

-  RANK  (CAPT) 

-  ED.  LEVEL 

-  SINGLE/UNACC 
CARE,  P)  PERFERED 
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3365 

PEM 

TEMP$  -  TEMPORARY 

INPUT 

VALUE 

3373 

RF.Il 

STAT$(18)  -  NAME  OF  STATISTICAL  ATTRIBUTE  AFTER  MIX  in': 

3375 

nrr’ 

STAT5(1)  = 

"COMM  SKILLS":  STAT${2)  =  "PPBS  SKILLS" 

3380 

REM 

STAT$(3)  = 

"OPS 

SKILLS"  :  STAT${4)  =  "ED.  NO  MASTERS" 

3385 

REM 

STAT$(5)  = 

"SR. 

ORG. 

EXP.": STATS (6)  =  "PILOT" 

3390 

REM 

STAT$(7)  = 

"NAVIGATOR";  STAT$(8)  =  "SINGLE/UKAC" 

3395 

REM 

STAT5(9)  = 

"USAFA  GRADS":  STAT$(10)  =  "ARMY" 

3400 

REM 

STAT$( 11 )= 

"RES/NG/USN/USMC" ;  STAT$(12)  =  "MINORITIES" 

3405 

REM 

STAT$( 13 )= 

"FEMALES" 

:  STATS (14)  =  "RANK  -  CAPT" 

3410 

REM 

STAT$( 15)= 

"88xx/89xx/9xxx" ;  STAT$(16)  =  "ACQ/LOG" 

3415 

REM 

STAT$( 17)= 

"ARI /SOS" 

:  STATS (18)  =  "TOP  PERFORMER" 

3420 

REM 

INPUT  DATA  FILE  "F 

:BASICIF"  £.  OUTPUT  FILE  "F;RASICOT" 

3425 

REM 

SNAME 

[NAME] 

3430 

REM 

SSN 

[SSAN] 

3435 

REM 

STN 

[ST. NO] 

3440 

REM 

DOR 

[DOR] 

3445 

REM 

MIXl 

[MIX.l] 

3450 

REM 

MIX2 

[MIX. 2] 

3455 

REM 

MIX3 

[MIX. 3] 

3460 

REM 

MIXX 

[MIX.X] 

3465 

REM 

AWING 

[WING] 

3470 

REM 

Ui  AF 

DERIVE  FROM 

[COMP] 

3475 

REM 

NOED 

DERIVE  FROM 

[ED. LEVEL]  NO  MASTERS  DEGRE' 

3480 

REM 

HORG 

DERIVE  FROM 

[H.ORG]  MAJCOM/SOA/USAF/DOD 

3485 

REM 

PILOT 

DERIVE  FROM 

[AERO]  PILOT  OR  SR.  PILOT 

3490 

REM 

NAV 

DERIVE  FROM 

[AERO]  NAV  OR  SR.  NAV 

3495 

REM 

SING 

DERIVE  FROM 

[MAR. ST]  U,  D,  S 

3500 

REM 

AFA 

DERIVE  FROM 

[COMM]  AF  ACAD 

3505 

REM 

NAVY 

DERIVE  FROM 

[COMP] 

3510 

REM 

ARMY 

DERIVE  FROM 

[COMP] 

3515 

REM 

RES 

DERIVE  FROM 

[COMP]  USMC,ANC,AFRES 

3520 

REM 

RACE 

DERIVE  FROM 

[RACE]  BLACK  OR  OTHER 

3525 

REM 

FEM 

DERIVE  FROM 

[SEX]  F 

3530 

REM 

RNK 

DERIVE  FROM 

[RANK]  03 

3535 

REM 

NOLINE 

DERIVE  FROM 

[PAFSC]  88xx, 89xx  ,  9xxx 

3540 

REM 

SRPME 

DERIVE  FROM 

[PME. 3] 

3545 

REM 

TOPPER 

*********** 

3550 

REM 

COMM 

**-********* 

3555 

REM 

OPS 

3560 

REM 

PPRS 

*★**★*★★ 

3565 

REM 

SLl 

3570 

REM 

SL2 

*********** 

3575 

REM 

SL3 

*********** 

3580 

REM 

SLX 

*********** 

3585 

REM 

ASLl 

*********** 

3590 

REM 

ASL2 

*********** 

3595 

REM 

ASL3 

*********** 

3600 

REM 

AS  LX 

*********** 

3605 

REM 

SOS 

*********** 

3610 

REM 

ARI 

***  ******** 

7* 
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3615 

REM 

SRO 

*********** 

3620 

REM 

CC 

*********** 

3625 

REM 

10 

*********** 

3630 

REM 

PAFSC 

[PAFSC] 
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4000  REM 


4010  REM  **  * 
4015  REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS)  * 
4020  REM  **  FILE  NAME:  5MSSMIXI.BAS  DATE:  2  FEB  19R6  PM  * 
4025  REM  **  FUNCTION:  PROCESS  INPUT  DATA  FOR  SMSSMIX  * 
4030  REM  *■'  COMPUTER:  ZENITH  120  LANGUAGE:  BASIC  * 
4035  REM  **  AUTHOR:  KEN  RITCHHART  * 
4040  REM  **  * 


4045  REM  ********************************************************************** 

4050  DIM  TEMPIN$(44),  ALOT( 18, 5, 12 ) 

4055  DIM  WING$(5,6),  STAT ( 18 , 5 , 1 2  )  ,  SEMI ( 5, 12, 15, 3 ) ,  RULE$(22) 

4060  COMMON  MIX,  SFLG,  WING$(),  STAT  (  ) ,  SEMI  {  )‘,  RULE$(),  FLE$,  TRONS,  SU%,  MU% 
4065  CLS:  PRINT  "  RUNNING  SMSS  MIX  INPUT  PROCESSING  PRINT 

4070  GOSUn  4500 

4075  REM  ********  PROCESS  INPUT  DATA  ***' •*^ * *********** 

4000  OPEN  "I",  #3,  "F:UASICIF." 

4085  OPEN  "R",  #4,  " F : SMSTDNTl . DAT" 

4090  OPEN  "R",  #5,  " F : SMSTDNT2 . DAT" 

4095  FIELD  #4,  27  AS  SNAME$,9  AS  SSN$,4  AS  STN$,6  AS  DOR$,2  AS  MIX1$,2  AS  MIX2$, 
2  AS  MIX3$,2  AS  MIXX$,1  AS  AWING$,1  AS  USAF$,1  AS  NOED$,l  AS  HORG$,l  AS  PILOTS, 
AS  NAV$,1  AS  SINGS, 1  AS  AFA$,1  AS  NAVYS, 1  AS  aRMYS,1  AS  RESS,1  AS  RACES, 1  AS  F! 
mS,i  as  RNKS 

4100  FIELD  #5,1  AS  NOLINES,!  AS  SRPMES.l  AS  TOPERS,!  AS  COMM$,l  AS  TOPSS,l  AS  S( 
PSS.l  AS  PPBSS.l  AS  ACQLOGS.l  Ao  SL1$,1  AS  SL2S,1  AS  SL3$,1  AS  SLXS,1  AS  ASLIS, 
AS  ASL2S,1  AS  ASL3S,1  AS  ASLX$,1  AS  SOS$,l  AS  ARI$,1  AS  SRO$,l  AS  CCS,1  AS  10$, 
6  AS  PAFSCS 

4105  KO  =  1;  PRINT:  PRINT  "READING  " ; 

4110  FOR  KS  =  1  TO  600 

4115  IF  KS/10  >=  KO  THEN  PRINT  " .  " ;  :  KO  =  KO  +  1 

4120  STDNT  =  SI 

4125  FOR  J  =  1  TO  44 

4130  IF  EOF  (3)  THEN  GOTO  4455 

4135  INPUT  #3,  TEMPINS{J) 

4140  NEXT  J 

4145  LSET  SNAMES  =  TEMPIN$ (1 ) 

4150  LSET  SSNS  =  TEMPINS(2) 

4155  LSET  STNS  =  TEMPINSO) 

4160  LSET  DORS  =  TEMPIN$(4) 

4165  LSET  MIXIS  =  TEMPIN$(5) 

4170  LSET  MIX2S  =  TEMPIN$(6) 

4175  LSET  MIX3S  =  TEMPINS(7) 

4180  LSET  MIXXS  =  TEMPINS(8) 

4185  LSET  AWINGS=  TEMPINS(9) 

4190  LSET  USAFS  =  TEMPINS(10) 

4195  LSET  NOEDS  =  TEMPINSUD 

4200  LSET  HORGS  =  TEMPIN${12) 

4205  LSET  PILOTS=  TEMPINS(13) 

4210  LSET  NAVS  =  TEMPIN${14) 

4215  LSET  SINGS  =  TEMPIN$(15) 

4220  LSET  AFAS  =  TEMPINS(16) 

4225  LSET  NAVYS  =  TEMPIN$(17) 

4230  LSET  ARMYS  =  TEMPINS(18) 
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4235 

4240 

4245 

4250 

4255 

4260 

4265 

4270 

4275 

4280 

4285 

4290 

4295 

4300 

4305 

4310 

4315 

4320 

4325 

4330 

4335 

4340 

4345 

4350 

4355 

4360 

4365 

4370 

4375 

4380 

4  385 

4390 

4395 

4400 

4405 

4410 

4415 

4420 

4425 

4430 

4435 


LSET  RES$  =  TEMPIN$(19) 

LSET  RACE$  =  TEMPIN$(20) 

LSET  FEM$  =  TEMPIN$(21) 

LSET  RNK$  =  TEMPIN$(22) 

LSET  NOLINE$  =  TEMPIN§(23) 

LSET  SRPME?  =  TEMPIN$(24) 

LSET  TOPPER$  =  TEMPIN$(25) 

LSET  COMM?  =  TEMPIN$(26) 

LSET  SOPS?  =TEMPIN?(27) 

LSET  TOPS?  =  TEMPIN?(28) 

LSET  PPBS?  =  TEMPIN?(29) 

LSET  ACQLOG?=TEMPIN?(30) 

LSET  SLl?  =  TEMPIN?(31) 

LSET  SL2?  =  TEMPIN?(32) 

LSET  SL3?  =  TEMPIN?(33) 

LSET  SLX?  =  TEMPIN?(34) 

LSET  ASLl?  =  TEMPIN?(35) 

LSET  ASL2?  =  TEMPIN?(36) 

LSET  ASL3?  =  TEMPIN?(37) 

LSET  ASLX?  =  TEMPIN?(38) 

LSET  SOS?  =  TEMPIN?(39) 

LSET  ARI?  =  TEMPIN?(40) 

LSET  SRO?  =  TEMPIN?(41) 

LSET  CC?  =  TEMPIN?(42) 

LSET  10?  =  TEMPIN?(43) 

LSET  PAFSC?=  TEMPIN?(44) 

IF  10?  =  "Y"  AND  RULE? (6)  =  “X"  GOTO  4450 
REM  *****  RECORD  SCHOOL  OVERALL  STATISTICS  *************** 
JJ  —  0 
KK  =  0 
GOSUB  4770 

IF  AWING?  =  "  "  GOTO  4435 

REM  ***  POST  WING  STATISTICS  ***** 

FOR  J  =  1  TO  MU% 

IF  AWING?  <>  WING?(J,1)  GOTO  4430 
JJ  =  J 
KK  =  0 
GOSUB  4770 
GOTO  4435 

NEXT  J 
SI  =  SI  +  1 


4440  PUT  #4, SI 

4445  PUT  #5, SI 

4450  Nx  XT  KS 
4455  STDNT  =  SI 

yeO  PRINT  "PROCESSED  IN  ";KS-1;"  STUDENTS  INTO  SMSS" 

4465  PRINT  STDNT;  "  STUDENTS  KEPT  FOR  FURTHER  PROCESSING" 

4470  STAT{ 0,0,0)  =  STDNT 

4475  GOSUB  4665 

4480  REM  END  OF  DATA  INPUT 


4485  GOSUB  4920 
4490  GOTO  5045 


‘OUTPUT  STATS  TO  SMSS 


4495 

4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4545 

4550 

4555 

4560 

4565 

4570 

4575 

4580 

4585 

4590 

4595 

4600 

4605 

4610 

4615 


FOR  I  = 
FOR 


4620 

4625 

4630 

4635 

4640 

4645 

4650 

4655 

4660 

4665 


PRINT:  PRINT 

REM  *******  initialize  STAT  5.  GET  RULES 
PRINT  "INITIALIZING 
FOR  I  =  0  TO  18 
PRINT 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

STAT(I,J,K)  =  0 
NEXT  K 
NEXT  J 
NEXT  I 

0  TO  5 
J  =  0  TO  12 
FOR  K  =  0  TO  15 

FOR  L  =  0  TO  3 

SEMId,  J,K,L)  =  0 
NEXT  L 
NEXT  K 
NEXT  J 
NEXT  I 

REM  *  RETRIEVE  SCHOOL  DATA  ** 

OPEN  "I",  #1,  "F: SMSCHOOL.DAT" 

INPUT  #1,  SCHOOL$,  MUNIT$,  SUNIT$,  MU%,  SU% 

FOR  I  =  1  TO  MU% 

INPUT  #1 ,  WING$ (1,1) , WING$ (1,2) , WING$ (1,3) , WING$ ( 1,4), WING$ (1,5), 
WING$(I,6) 

NEXT  I 
CLOSE  #1 

REM  ****  RETRIEVE  RULES  DATA  ****** 

OPEN  "I",  #1,  "F: SMRULE.DAT" 

FOR  I  =  1  TO  22 

INPUT  #1,  RULE$(I) 

NEXT  I 
CLOSE  #1 
RETURN 

********print  out  input  statistics  ********************** 


REM 


4670 

PRINT 

4675 

PRINT 

"THERE 

WERE 

M 

STAT (1,0 

,0) 

4680 

PRINT 

"THERE 

WERE 

M 

STAT (2,0 

.0) 

4685 

PRINT 

"THERE 

WERE 

•• 

STAT (3,0 

,0) 

4690 

PRINT 

"THERE 

WERE 

•1 

STAT (4,0 

,0) 

4695 

PRINT 

"THERE 

WERE 

II 

STAT (5,0 

.0) 

4700 

PRINT 

"THERE 

WERE 

II 

STAT (6,0 

,0) 

4705 

PRINT 

"THERE 

WERE 

II 

STAT (7,0 

,0) 

4710 

PRINT 

"THERE 

WERE 

II 

STAT (8, 0 

,0) 

4715 

PRINT 

"THERE 

WERE 

II 

STAT (9,0 

,0) 

4720 

PRINT 

"THERE 

WERE 

II 

STAT (10, 

0,0) 

4725 

PRINT 

"THERE 

WERE 

II 

STAT (11, 

0,0) 

4730 

PRINT 

"THERE 

WERE 

H 

STAT (12, 

0,0) 

4735 

PRINT 

"THERE 

WERE 

II 

STAT (13, 

0,0) 

4740 

PRINT 

"THERE 

WERE 

II 

STAT(14, 

0,0) 

4745 

PRINT 

"THERE 

WERE 

It 

STAT (15, 

0,0) 

"STUDENTS  WITH  COMMUNICATION  SKILLS" 
"STUDENTS  WITH  PPBS  SKILLS" 

"STUDENTS  WITH  TAC  OPS  SKILLS" 
"STUDENTS  WITH  STRAT  OPS  SKILLS" 
"ACQUISITION  /  LOGISTICS  STUDENTS" 
"STUDENT  PILOTS" 

"STUDENT  NAVIGATORS" 

"SINGLE  STUDENTS" 

"STUDENT  USAFA  GRADS" 

"STUDENTS  FROM  THE  ARMY" 

"STUDENT  AFRES/  AHG/  USMC/  NAVY" 
"STUDENT  MINORITIES" 

"STUDENT  FEMALES" 

"CAPTAINS" 

"STUDENT  88XX,  89XX,  9XXX" 
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4750 

4755 

4760 

4765 

4770 

4775 

4780 

4785 

4790 

4795 

4800 

4805 

4810 

4815 

4820 

4825 

4830 

4835 

4840 

4845 

4850 

4855 

4860 

4865 

4870 

4875 

4880 

4885 

4890 

4895 

4900 

4905 

4910 

4915 

4920 

4925 

4930 

4935 

4940 

4945 

4950 

4955 

4960 

4965 

4970 

4975 

4930 

4985 

4990 

4995 


PRINT  "THERE  WERE  STAT ( 1 6 , 0 , 0  )  ;  "STUDENTS  WITH  SR  ORG  EXPERIENCE" 
PRINT  "THERE  WERE  ";  STAT ( 1 7 , 0,  0  )  ;  "SOS  /  ARI  STUDENTS" 

PRINT  "THERE  WERE  ";  STATUS,  0,0);  "WITH  NO  MASTERS  ED" 

RETURN 

REM  **************  record  statistics  ******************************** 

IF  JJ  <>  0  THEN  STAT(0, JJ,  O)=STAT(0, JJ, 0)  +  1 
IF  KK  =  0  GOTO  4820 
FOR  MM  =  1  TO  15 

IF  SEMI(JJ,KK,MM,0)  <>  0  THEN  GOTO  4815 

SEMI(JJ,KK,MM,0)=SI:  SEMI  ( JJ  ,  KK  ,  0 , 0  )  =SEM  I  ( JJ ,  KK ,  0 , 0  ) -. 
SEMI(JJ,KK,MM,  1  )=VAL(MIX1$)  :  SEMI  ( JJ  ,  KK  ,  MM,  2  )  =VAL(  MIXJ 
SEMI (JJ, KK,MM, 3 )=VAL(MIX3$ ) 

GOTO  4820 
NEXT  MM 


IF 

COMM$ 

=  “Y** 

THEN 

STATU,  JJ,KK) 

STATU,  JJ,KK) 

+ 

1 

IF 

PPBS$ 

=  **Y** 

THEN 

STAT { 2 , J J , KK ) 

= 

STAT( 2, JJ, KK) 

+ 

1 

IF 

T0PS$ 

=  **Y** 

THEN 

STAT(3, JJ,KK) 

STAT ( 3 , J J , KK ) 

+ 

1 

IF 

SOPS$ 

SS  II  Y“ 

THEN 

STAT{4, JJ,KK) 

= 

STAT ( 4 , J J , KK ) 

+ 

1 

IF 

ACQLOG$ 

_  II Y  ** 

THEN 

STAT(5,JJ,KK) 

STAT( 5, JJ, KK) 

+ 

1 

IF 

PILOT$ 

=  "Y** 

THEN 

STAT(6, JJ,KK) 

STAT ( 6 , J J , KK ) 

+ 

1 

IF 

NAV$ 

=  II Y" 

THEN 

STAT(7,JJ,KK) 

= 

STAT ( 7 , J J , KK ) 

+ 

1 

IF 

SING$ 

=  II Y" 

THEN 

STAT(8, JJ,KK) 

s 

STAT(8, JJ, KK) 

+ 

1 

IF 

AFA$ 

S5  **Y“ 

THEN 

STAT(9, JJ,KK) 

= 

STAT ( 9 , JJ , KK ) 

+ 

1 

IF 

ARMY$ 

s  II Y** 

THEN 

STATU0,  JJ,KK) 

: 

=  STATUO,  JJ,KK) 

+  1 

IF  RES$  =  "Y"  OR  NAVY$  =  "Y"  THEN  STAT  ( 1 1 ,  JJ ,  KK  )  =  STAT ( 11 ,  JJ,  KK  )  + 
IF  RACE$  =  "Y"  THEN  STAT( 12, JJ, KK )  =  STAT ( 12 , JJ , KK )  +  1 
IF  FEM$  =  "Y"  THEN  STAT  ( 13 , JJ, KK )  =  STAT ( 1 3 , JJ , KK )  +  1 

IF  RNK$  =  "Y"  THEN  STAT ( 14 , JJ , KK )  =  STAT ( 14 , JJ , KK  )  +  1 

IF  NOLINE$  ="Y"  THEN  STAT ( 1 5 , JJ , KK )  =  STAT ( 1 5 , JJ , KK )  +  1 

IF  HORG$  =  "Y"  THEN  STAT { 16 , JJ , KK )  =  STAT ( 16 , JJ , KK )  +  1 

IF  ARI$  ="Y"  OR  SOS$="Y"  THEN  STAT  ( 1 7 ,  JJ  ,  KK  )  =  STAT  ( 17  ,  JJ ,  KK  ) 
IF  NOED$  =  "Y"  THEN  STAT ( 18 , JJ , KK )  =  STAT ( 18 , JJ , KK )  +  1 

RETURN 

REM  **************  end  statistics  *********************************** 

REM  **********  OUTPUT  STATISTICS  *********************************** 

PRINT  "  OUTPUTING  STATISTICS 

OPEN  "0",  #1,  "FiXTRIALl .DAT" 

FOR  I  =  0  TO  18 
PRINT 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

PRINT  #1,  STATU, J,K) 

NEXT  K 
NEXT  J 
NEXT  I 

FOR  I  =  0  TO  5 
PRINT 

FOR  J  =  0  TO  12 

FOR  K  =  0  TO  15 

FOR  L  =  0  TO  3 
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^  ^ 


^  r  •r  •r  *"  •r  .r.  vr:'  ^ V.  S'HTV  -C.  -T.  rV.  W  -•"J  rfl 


500R  PRINT  #1,  SEMI(I,J,K,L) 

5005  NEXT  L 

5010  NEXT  K 

5015  NEXT  J 

5020  NEXT  I 
5025  CLOSE 
5030  RETURN 

5035  REM  *******************  done  ************************************* 

5040  SFLG  =  1 

5045  CHAIN  "SMSSMIX" 

5050  END 
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5500 

5505 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

5550 

5555 

5560 

5565 

5570 


REM 


PEM  ********************************************************************* 

REM  ** 

PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS) 

FILE  NAME:  SMSSMIX.DAS  DATE:  4  FEB  1986  AM 

FUNCTION:  PROGRAM  TO  MIX  THE  STUDENTS 

COMPUTER:  ZENITH  120  LANGUAGE:  BASIC 

AUTHOR:  KEN  RITCHHART 


REM  ** 
REM  ** 
REM  ** 
REM 
REM 


*  * 
*  * 


REM  ** 

PEM  ********************************************************************* 

DIM  RULE$(22),  WING$(5,6),  STAT( 18, 5 ,  12  ) ,  SL(12),  ASL(12) 

DIM  SEMI ( 5, 12, 15, 3) ,  ALOT ( 18 , 5 , 1 2  ) 

COMMON  MIX,  SFLG,  WING$(),  STAT(),  SEMI ( ) ,  RULE$(),  FLE$,  TRONS,  MU%,  SU? 
RULE$(0)  =  "Z" 

CLS:  PRINT  TAB ( 25 ); "SMSS  MIXING  ROUTINE":  PRINT:  PRINT 


5575 

REM  ********  PROCESS 

STUDENTS 

******************* 

5580 

GOSUB 

5820 

5585 

GOSUB 

6455 

5590 

GOSUB 

6975 

5595 

GOSUB 

7425 

5600 

GOSUB 

7495 

5605 

RL$  =  " 

ARMY 

"  . 

RL  =  11: 

IR  = 

10: 

GOSUB 

8115 

5610 

RL$  =  " 

COMM 

SKILL" 

:  RL  =  1: 

IR 

=  1: 

GOSUB 

8115 

5615 

RL$  =  " 

PPBS 

SKILL" 

:  RL  =  2: 

IR 

=  2: 

GOSUB 

8115 

5620 

RL$  =  " 

ACQ/LOG  SKILL":  RL  * 

10: 

IR 

=  5;  GOSUB  I 

'OPEN  FILES  &  GET  D7 
'ALOT  SLOTS  TO  SEMIN/ 
'ASSIGN  SL  &  ASL 
'POST  lOs 
'POST  ARI  &  SOS 
'ASSIGN  ARMY 
'ASSIGN  CRITICAL  SKIl 
'ASSIGN  CRITICAL  SKIl 


L 

5625 

S 

5639 


RL$="  TACOPS  SKILL":  RL  =3:  IR  *  3;  GOSUB  8115  'ASSIGN  CRITICAL  SKI 
RL$="  STRATOPS  SKILL":  RL  =  3:  IR  =  4:  GOSUB  8115  'ASSIGN  CRIT  SKILI 


5635 

RL$  =  " 

USN,MC,NG, 

RES 

":  RL 

=  7: 

IR  =  11:  GOSUB  8115  'ASSIGN  NAVY,  RES  E 

5640 

RL$  =  " 

MINORITIES 

'• . 

RL  = 

16: 

IR  =  12:  GOSUB  8115 

'ASSIGN 

I  MINORITIES 

5645 

RL$=" 

FEMALES  ": 

PL 

=  15: 

IR 

=  13;  GOSUB  8115 

'ASSIGN 

FEMALES 

5650 

RL$  =  " 

NON  LINE": 

RL 

=  17: 

IR 

=  15;  GOSUB  8115 

'ASSIGN 

NON  LINE 

5655 

RL$  =  " 

SINGLES  "; 

RL 

=  22: 

IR 

=  8;  GOSUB  8115 

'ASSIGN 

SINGLES 

5660 

RL.5  =  " 

PILOTS  "; 

RL 

=  13: 

IR 

=  6:  GOSUB  8115 

'ASSIGN 

PILOTS 

5665 

RL$  =  " 

NAVIGATORS 

II  ^ 

RL  = 

13: 

IR  =  7;  GOSUB  8115 

'ASSIGN 

NAVIGATORS 

5670 

RL$  =  " 

NO  MASTERS 

M  ^ 

RL  = 

18; 

IR  =  18;  GOSUB  8115 

'ASSIGN 

NO  EDUCATION 

5675 

RL$  =  " 

USAFA  GRAD 

M  ^ 

RL  = 

19; 

IR  =  9;  GOSUB  8115 

'ASSIGN 

USAFA  G^ADS 

5680 

RL$  =  " 

CAPTAINS  " 

:  RL  =  18 

;  IR 

=  14;  GOSUB  8115  ' 

ASSIGN  CAPTAINS 

5685 

RL$  =  " 

SR  ORG  EXP 

"  . 

RL  =  21:  IR  =  16:  GOSUB  P115 

'.'VSSICM 

SR  ORG  EXP 

5690 

RL$  =  " 

ALL  OTHERS 

** : 

RL  =  0 

;  IR 

=  0;  GOSUB  8115 

'ASSIGN 

REMAINING 

5695 

GOSUB 

6350 

'OUTPUT 

STATS  TO  SMSS 

5700 

5705 

5710 

5715 

5720 

5725 

5733 

5735 

5740 

5745 

5750 

5755 

5760 


REM 


IF  MIX 
CC  = 
FOR 


GOTO  8305 

SELECT  SENIOR  STAFF 
<>  1  GOTO  5815 
0 

I  =  1  TO  200 
GET  #4,1 
GET  #5,1 

IF  10$  =  "Y"  THEN  GOTO  5810 
IF  NOLINE$  =  "Y"  THEN  GOTO  5810 
IF  USAF$  <>  "Y"  GOTO  5810 
IF  CC  >  0  THEN  GOTO  5780 
LSET  CC$  =  "Y" 

FOR  K  =  1  TO  MU% 


'ALL  DONE 
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5765 

5770 

5775 

5780 

5785 

5790 

5795 

5800 

5805 


IF  VAL(WING$(K,  3)  )  =  1  THEN  LSET  AWING$  =  WING$(I',1) 
NEXT  K 
GOTO  5795 
LSET  SRO$  =  "Y" 

IF  CC  >  MU%  THEN  GOTO  5815 

LSET  AWING?  =  WING$(CC,1) 

CC  =  CC  +  1 


PUT  #4,1 
PUT  #5,1 


5810 

NEXT  I 

5815 

REM  ASSIGN  PEOPLE 

TO  WINGS 

5820 

REM  ******* 

RETRl 

•iVE  STAT  & 

RULES 

5825 

OPEN  "0", 

#2, 

"F;SMSERROR 

.DAT" 

5830 

OPEN  "I", 

#1. 

"F;XTRIAL1. 

DAT" 

5835 

OPEN  "R", 

#4, 

''F;SMSTDNT1 

.DAT" 

5840 

OPEN  "R", 

#5, 

"F:SMSTDNT2 

.DAT" 

5845 

FIELD  #4,  27 

AS  SNAME?,9  AS 

SSN?,  4 

5845  FIELD  #4,  27  AS  SNAME$,9  AS  SRN$,4  AS  STN?,6  AS  DOR$,2  AS  MIX1?,2  AS  MIX2?, 
2  AS  MIX3?,2  AS  MIXX$,1  AS  AWING?,  1  AS  USAF?,1  AS  MOED?,l  AS  I!OHG?,l  AS  Pir,OT?, 
AS  NAV?,l  AS  SING?,1  AS  AFA?,1  AS  NAVY?, 1  AS  ARMY?,1  AS  RES?,1  AS  RACF?,1  AS  FI 
M?,l  AS  RNK? 

5850  FIELD  #5,1  AS  NOLIME?,!  AS  SRPME$,1  AS  TOPER?, 1  AS  COMM?,l  AS  TOPS?,l  AS  £( 
PS?,1  AS  PPBS$,1  AS  ACOLOG?,!  AS  SL1?,1  AS  SL2$,1  AS  SL3?,1  AS  SLX$,1  AS  ASLl?, 
AS  ASL2?,1  AS  ASL3?,1  AS  ASLX?,1  AS  SOS$,l  AS  ARI?,1  AS  SRO?,l  AS  CC?,1  AS  10?, 
6  AS  PAFSC? 

5855  XT  =  TIME 

5860  XT  =  XT  -  (INT(XT/100)*100) 

5865  FOR  I  =  1  TO  XTs  X  =  RND:  NEXT  I 

5870  X  =  X  *  10000:  RANDOMIZE  X 


5855  XT  =  TIME 

5860  XT  =  XT  -  (INT(XT/100)*100) 

5865  FOR  I  =  1  TO  XT;  X  =  RND:  NEXT  I 

5870  X  =  X  *  10000:  RANDOMIZE  X 

5875  REM  - 

5880  IF  SFLG  =  1  THEN  GOTO  6060 

5885  PRINT  TAB  ( 10  );"  RETRIEVING  STATISTICS  &  RULES 

5890  FOR  I  =  0  TO  18 

5895  PRINT 

5900  FOR  J  =  0  TO  5 

5905  FOR  K  =  0  TO  12 

5910  INPUT  #1,  STAT(I,J,K) 

5915  NEXT  K 

5920  NEXT  J 

5925  NEXT  I 

5930  FOR  I  =  0  TO  5:  PRINT 

5935  FOR  J  =  0  TO  12 

5940  FOR  K  =  0  TO  15 

5945  FOR  L  =  0  TO  3 

5950  INPUT  #1,  SEMI(I,J,K,L) 

5955  NEXT  L 

5960  NEXT  K 

5965  NEXT  J 

5970  NEXT  I 

5975  CLOSE  #1 

5980  REM  *  RETRIEVE  SCHOOL  DATA  ** 

5985  OPEN  “I",  #1,  "F;  SMSCHOOL.DAT" 

5990  INPUT  #1,  SCHOOL?,  MUNIT?,  SUNIT?,  MU%,  SU% 

5995  FOR  I  =  1  TO  MU% 


6000 

6005 
6010 
6015 
6020 
6025 
6030 
6035 
6040 
6045 
6050 
605  5 
6060 
6065 
6070 
6075 
6080 
6085 
6090 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
6130 
6135 
6140 
6145 
6150 
6155 
6160 
6165 
6170 
6175 
6180 
6185 
6190 
6195 
6200 
6205 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6245 
6250 
6255 
6260 


INPUT  #1,  WING$(I,  1),WIMG$(I,  2),WING$(I,3),WING$(I-,  4),V;iNG$(I,5), 
WING? (I,  6) 

PRINT  "W"; 

NEXT  I 
CLOSE  #1 

rEM  ****  RETRIEVE  RULES  DATA  ****** 

OPEN  "I",  #1,  "FiSMRULE.DAT" 

FOR  I  =  1  TO  22 

INPUT  #1,  RULE$(I) 

NEXT  I 
PRINT  "R"; 

CLOSE  #1 

STDNT  =  STAT( 0,0,0) 

RETURN 


*************  removing  STUDENTS  FROM  SEMINAR  ASSIGNMENT  ************ 
IF  JJ  =  0  THEN  STAT(0,  JJ,0)=STAT(O,  JJ,  0)  -  1 
FOR  MM  =  SS  TO  SEMI  ( JJ,  KK,  0, 0  ) 

SEMI(JJ,KK,MM,0)  =  SEMI(JJ,KK,MM+i,0) 


NEXT  MM 
SEMI (JJ,KK 
STAT(0, JJ, 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


,0,0)  =  SEMI(JJ,KK,0,0)  -  1 
KK)  =  STAT(0,JJ,KK)  -  1 
COMM?  =  "Y"  THEN  STAT  {  1 ,  JJ  ,  KK  ) 
PPDS?  =  "Y"  THEN  STAT(  2,  JJ,  KK) 
"Y"  THEN  STAT(3, JJ, KK) 
"Y"  THEN  STAT(4, JJ,KK) 

=  "Y"  THEN  STAT(5,JJ,KK 
"Y"  THEN  STAT(6, JJ,KK) 
THEN  STAT( 7, JJ, KK) 
THEN  STAT(8, JJ,KK) 
THEN  STAT( 9, JJ, KK) 
THEN  STAT( 10, JJ, KK) 
OR  NAVY?="Y"  THEN  STAT( 
THEN  STAT( 12, JJ,KK 
THEN  STAT( 1 3, JJ, KK) 
THEN  STAT( 14, JJ, KK) 
THEN  STAT( 15, JJ,KK) 
THEN  STAT( 16, JJ, KK) 
SOS?="Y"  THEN  STAT( 


TOPS?  = 
SOPS?  * 
ACQLOG? 
PILOT?  * 
NAV? 

SING?  = 
AFA? 

ARMY?  = 
RES?="Y" 
RACE?  ="Y 

FEM?  ="Y" 

RNK?  =  "Y" 
NOLINE?  ="Y" 
HORG?  =  "Y" 
ARI?  ="Y"  OR 


«i  Y** 
II Y  ** 
II Y” 
M  Y<* 


Mnpn<5=- 


=  STAT(1,JJ,KK)  -  1 
=  STAT(2, JJ,KK)  -  1 
=  STAT(3,JJ,KK)  -  1 
=  STAT{4, JJ,KK)  -  1 
)  =  STAT{5, JJ,KK) 

=  STAT(6, JJ,KK)  - 
=  STAT(7, JJ,KK)  - 
=  STAT(8, JJ,KK)  - 
=  STAT(9, JJ,KK)  - 
=  STAT(10, JJ,KK) 

11,JJ,KK)  =  STATdl,  JJ,KK) 
)  =  STAT( 12, JJ, KK)  -  1 
=  STAT{13, JJ,KK)  -  1 
=  STAT( 14. JJ,KK)  - 
=  STATd  -  .0;J,KK)  - 
=  STATd6,  JJ,KK)  - 
17,JJ,KK)  =  STATd7,  JJ,KK) 
STATdS,  JJ,  KK)  -  1 


-  1 
1 
1 
1 
1 

-  1 


RETURN 

REM  **************  record  STATISTICS  ******************************** 

IF  JJ  <>  0  THEN  STAT(0, JJ, 0)=STAT(0, JJ,  0)  +  1 
IF  KK  =  0  GOTO  6245 
FOR  MM  =  1  TO  15 

IF  SEMI(JJ,KK,MM,0)  <>  0  THEN  GOTO  6240 

SEMI  (JJ,KK,MM, 0)=SI :  SEMI ( JJ , KK , 0 , 0 ) =SEMI ( JJ , KK , 0, 0 ) +1 
SEMI (JJ,KK,MM, 1 )=VAL(MIX1?) :  SEM I ( JJ , KK , MM , 2 ) =VAL ( MIX2! 
SEMI  (JJ,KK,MM, 3)=VAL(MIX3?) 

GOTO  6245 
NEXT  MM 

STAT(0, JJ,KK)  =  STAT(0, JJ, KK)  +  1 

IF  COMM?  =  "Y"  THEN  STATd,JJ,KK)  =  STATd,JJ,KK)  +  1 

IF  PPBS?  =  "Y"  THEN  STAT { 2 , J J ,  KK  )  =  STAT ( 2 , J J , KK )  +  1 

IF  TOPS?  =  "Y"  THEN  STAT ( 3 , J J ,  KK  )  =  STAT ( 3 , J J , KK )  +  1 
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6265 

6270 

6275 

6280 

6285 

6290 

6295 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6335 

6340 

6345 

6350 

6355 

6360 

6365 

6370 

6375 

6380 

6385 

6390 

6395 

6400 

6405 

6410 

6415 

6420 

6425 

6430 

6435 

6440 

6445 

6450 

6455 

6460 

6465 

6470 

6475 

6480 

6485 

6490 

6495 

6500 

6505 

6510 

6515 

6520 

6525 

6530 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


SOPS$  = 
ACQLOG$ 
PILOT?  = 
NAV? 

SING?  = 
AFA? 

ARMY?  = 
RES?="Y" 
RACE? 
FEM? 

RNK? 
NOLINE? 
HORG?  = 
API?  ="Y 
NOED?=  " 


STAT(4,  JJ,KK)  = 
THEN  STAT( 5, JJ,KK) 
"Y"  THEN  STAT(6, JJ, KK)  = 
THEN  STAT( 7, JJ, KK)  = 
THEN  STAT(8, JJ,KK)  = 
THEN  STAT(9, JJ, KK)  = 
I  THEN  STATUG,  JJ,  KK) 
OR  NAVY?="Y''  THEN  STATU 
="Y"  THEN  STAT( 12, JJ,KK) 
THEN  STAT(13, JJ,KK) 
THEN  STAT( 14, JJ, KK) 
THEN  STAT(  15,  JJ,  L'K) 
THEN  STAT( 16, JJ, KK) 
SOS?='*Y‘'  THEN  STATU 


"Y"  THEN 
=  **Y" 

lly  II 
II  Y  M 
11 Y 
II  Y“ 
lly** 


lllyll 
II Y  ** 
;  II  Y  •• 
II Y II 

'  OR 


STAT{4, JJ,KK)  +  1 
=  STAT(5,JJ,KK)  +  1 
STAT(6, JJ,KK )  +  1 
STAT{7, JJ,KK)  +  1 
STAT(8, JJ,KK)  +  1 
STAT(9, JJ,KK)  +  1 
=  STATU0,  JJ,  KK)  +  1 
1,JJ,KK)  =  STAT{  11 ,  JJ,  El 
=  STAT(12,JJ,KK)  +  1 
=  STATUS,  JJ,KK)  +  1 
=  STATU4,  JJ,KK)  +  1 
=  STATUS,  JJ,  KK)  +  1 
=  STATU6,  JJ,KK)  +  1 
7,JJ,KK)  =  STATU7,JJ,KK 
STATU8,  JJ,KK  )  +  1 


RETURN 

REM  ****•'*•*******  CND  STATISTICS  **********************************  ^ 
**********  OUTPUT  STATISTICS  *********************************** 

PRINT  TAB( 10) ; "OUTPUTING  STATISTICS  &  SEMINAR  ASSIGNMENTS" 

OPEN  "O",  #1,  "F:XTRIAL1  .DAT" 

FOR  I  =  0  TO  18 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

PRINT  #1,  STAT(I,J,K) 

NEXT  / 

NEXT  J 
NEXT  I 

FOR  I  =  0  TO  5 

FOR  J  =  0  TO  12 

FOR  K  =  0  TO  15 

FOR  L  =  0  TO  3 

PRINT  #1,  SEMI (I, J,K,L) 

NEXT  L 
NEXT  K 
NEXT  J 
NEXT  I 
CLOSE  #1 
RETURN 

REM  ******  randomly  ALLOCATE  CHARACTERISTICS  TO  EACH  SEMINAR  *** 

PRINT  TAB ( 10) ; "ALLOCATE  SLOTS  TO  SEMINARS" 

FOR  J  =  1  TO  MU?i 

PRINT  TABU0);J; 

GOSUB  6645 
FOR  I  =  0  TO  18 
PRINT 

TA  =  STAT(I,J,0)  /  NS  'TEMPORARY  ALLOCATIOE 

IF  TA  <  1  THEN  TA  =  1 
FOR  K  =  1  TO  NS 
TX  =  K 

IF  K  +  FS  -1  =  MS  THEN  TX  =  LS  -  FS  +  1 
IF  I  =  ]l  AND  ALOTU0,J,TX)>1  AND  STAT  (I ,  J  ,  0  ) /NS  <  1  THEN  GOTO  65 
ALOT(I,J,TX)  =  INT(TA)  'GIVE  SEMINAR  FAIR  SI 

NEXT  K 


IF  INT(  (  (TA-INT{TA)  )*NS  )  +  .  5  )  =  0  THEN  GOTO  6560 
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6535 
6540 
6545 
6550 
6555 
6560 
6565 
6570 
6575 
6580 
6585 
6590 
6595 
6600 
6605 
6610 
6615 
6620 
6625 
6630 
6635 
6640 
6645 
6650 
6655 
6660 
6665 
6670 
6675 
6680 
6685 
6690 
6695 
6700 
6705 
6  710 
6715 
6720 
6  72  5 
6730 
6735 
6740 
6745 
6750 
6755 
6760 
6765 
6770 
6775 
6780 
6785 


FOR  L  =  1  TO  INT( ( (TA-INT(TA) ) *NS  )  +  . 5)  'GIVE  OUT  REMAINING 
GOSUB  6580  'ASSIGN  TSEM 

IF  ALOT(I,J,PS)  >  TA  THEN  GOTO  6540 
ALOT(I,J,PS)  =  ALOT(I,J,PS)  +  1 

NEXT  L 
NEXT  I 
PRINT 
NEXT  J 
RETURN 

REM  *******  randomly  ASSIGN  TEMPORARILY  TO  SEMINAR  TSEM  ******** 

IF  TRONS  >  1  THEN  PRINT  "  RND  A  " 

RS  =  RND 

FOR  LL  =  1  TO  NS 

IF  RS  >  LL/NS  GOTO  6625 
PS  =  LL 

TSEM  =  FS  +  LL  -  1 

IF  TSEM  =  MS  THEN  TSEM  =  LS :  PS  =  NS  +  1 
GOTO  6630 


NEXT  LL 
KK  =  PS 
JJ  =  J 
RETURN 
REM 


******  GET  SEMINAR  DATA  FOR  WING 


FS  =  VAL(WING$(J,4)) 

LS  =  VAL(WING$( J, 5)  ) 

MS  =  VAL(WING$( J, 6) ) 

NS  =  VAL(WING$( J, 2) ) 

TS  =  STAT(0,J,0) 

RETURN 

REM  ***********  find  CORRECT 


'FIRST  SEMINAR  IN  WI 
'LAST  SEMINAR  IN  WIN 
'MISSING  SEMINAR  IN 
'  #  SEMINARS  IN  WING 
'TOTAL  STUDENTS  IN  W 

WING  PERSON  IS  ALREADY  ASSIGNED  TO 


FOR  J  =  1  TO  MU% 

IF  AWING$  <>  WING$(J,1)  GOTO  6705 
GOSUB  6645 
GOTO  6710 

NEXT  J 
JJ  =  J 
RETURN 

REM  **********  find  OFSET  FOR  ASSIGNED  STUDENTS  **************** 

IF  MIX  =  1  THEN  TSEM  =  VAL(MIX1$) 

IF  MIX  =  2  THEN  TSEM  =  VAL(MIX2$) 

IF  MIX  =  3  THEN  TSEM  =  VAL(MIX3$) 

IF  MIX  >=4  THEN  TSEM  =  VAL(MIXX$) 

IF  TSEM  =  0  THEN  GOTO  6760 
KK  =  TSEM  -  FS  +  1 
IF  TSEM  =  MS  THEN  GOSUB  6580 
RETURN 

REM  ********  CHECK  ON  PREVIOUSLY  ASSIGNED  STUDENTS  ************* 

PCF  =  0  'RULE  CHANGE  FLAG 

PC  =  0  'RETRY  COUNT 

CN  =  0  'PREV  ASSIGNED  WITH 

IF  RULE$(8)  =  "D"  GOTO  6810 


I 


6790  IF  TSF 

6795  IF  TSE 

6800  IF  TSE 

6805  IF  TSE 

6810  IF  SEM 

6815  FOR  AB 

6820  IF 

6825 

6830  IF 

6835 

6840  IF 

6845 

6850  NEXT  A 

6855  IF  CN 

6860  RE 

6865 
6870 
6875 
6880 

6885  GO 

6890  PC 

6895  IF 

6900 

6905 

6910 

6915 

6920  RE 

6925  IF 

"jTSEM;"  WITH 


IF  TSFM  =  VAL(MIX1$)  GOTO  6860 
IF  TSEM  -  VAL(MIX2$)  GOTO  6860 
IF  TSEM  =  VAL(MIX3$)  GOTO  6860 
IF  TSEM  =  VAL(MIXX$)  GOTO  6860 
IF  SEMI (JJ,KK, 0,0)  <  1  GOTO  6920 
FOR  AB  =  1  TO  SEMI {JJ,KK, 0,0) 

IF  VAL(MIX1$)  =  0  GOTO  6920 

IF  VAL(MIX1$)  =  SEMI(JJ,KK,AB, 1  ) 


'NO  ONE  ASSIGNED  YET 


THEN  CN  =  CN 


IF  VAL(MIX2$)  =  0  GOTO  6850 

IF  VAL(MIX2$)  =  SEMI(JJ,KK, AD, 2) 


THEN  CN  =  CN 


IF  VAL(MIX3$)  =  0  GOTO  6850 

IF  VAL(MIX3$)  =  SEMI(JJ,KK, AB, 3) 


THEN  CN  =  CN 


NEXT  AB 

IF  CN  <=  VAL(RULE$(9) )  GOTO  6920 

REM  *  CAN  NOT  DO  -  RETRY  NEW  SEMINAR  * 

IF  TRONS  >  1  THEN  PRINT  "CHECK  SHOWS  ";CN;" 
IF  TRONS  >  1  THEN  PRINT  "  FOR  " ; SNAME$ ; SI ; " 
SASN$  =  "N" 

IF  ARFLAG$  =  "N"  THEN  GOTO  6970 
GOSUB  6580 


PREV  CLASSMATES"; 
IN  SEMINAR  ";TSEM 


'ASSIGN  TO  TSEM 


=  PC 


IF  PC  <=  20  GOTO  6780 

PRINT  "***  ERROR  -  UNABLE  TO  ASSIGN  ";SNAME$;"  TO  SEMINAR  WITH 
PRINT  "  LESS  THAN  ";RULE${9);"  PREVIOUS  CLASSMATES" 

RULE$(9)  =  STR$(VAL(RULE$(9) )  +  1):  PCF  =  PCF  +  1 

GOTO  6775 

REf/I  ************  ASSIGN  TO  SEMINAR  ************* 

IF  PCF  >  0  THEN  PRINT  #2,  CHR$ ( 34 ) ; SNAME$  ;  "  #  ";SI;"  ASSIGNED  TO  SE 
TH  ";PCF+VAL(RULE$(9));"  PREVIOUS  CLASSMATES" ;CHR$ { 34 ) 

IF  PCF  >  0  THEN  RULE$(9)  =  STR$ ( VAL ( RULE $ ( 9 ) )  -  PCF):  PCF  =  0 
IF  TSEM  <  10  THEN  Z  =  1  ELSE  Z  =  2 


6930 

IF  PCF  >  0 

6935 

IF  TSEM 

6940 

IF  MIX 

6945 

IF  MIX 

6950 

IF  MIX 

6955 

IF  MIX 

6960 

GOSUB  6195 

6965 

SASN$  =  "Y" 

6970 

RETURN 

6975 

REM 

*★★★*★* 

6930 

PRINT  TAB(10)  ;  ", 

6985 

FOR 

J  =  1  TO  MU 

6990 

GOSUB  6645 

6995 

SL(J)  =  NS 

7000 

ASL(J)  =  NS 

7005 

NEXT  J 

7010 

ARFLAG?  =  " 

7015 

FOR 

SSI  =  1  TO 

7020 

SI  = 

:  SSI 

7025 

GET 

#4,  SI 

7030 

GET 

#5, SI 

70  3  5 

IF  10^  =-  "Y 

7040 

IF  ARI$  =  " 

7045 

IF  SOS$  =  " 

7050 

IF  MIX  =  1  , 

=  1  THEN  LSET  MIX1$  =  M I D$ ( STR $ ( TSEM ) , Z  ,  2 ) 


=  2  THEN  LSET  MIX2$  =  MID$ ( STR$ (TSEM )  ,  Z  ,  2  ) 

=  3  THEN  RSET  MIX35  =  MID$ ( STR$ (TSEM )  ,  Z  ,  2 ) 
>=  4  THEN  RSET  MIXX$  =  MID$ ( STR$ (TSEM )  ,  Z  ,  2 ) 


ASSIGN  SL  &  ASL  TO 
:GNING  SL  &  ASL" 


EACH  SEMINAR 


;tdnt 


AND  NOLINE$  = 


3  THEN  GOTO  7190 
"Y"  GOTO  7190 
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7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 

7125 

7130 

7135 

7140 

7145 

7150 

7155 

7160 


REM 


IF  NOLINE$  =  "Y"  AND  PAFSC$  =  " 

IF  CC?  =  "Y"  OR  SRO$  =  "Y"  THEN  GOTO 
IF  SL1$  =  "Y"  GOTO  7190 
IF  SL2$  =  "Y"  GOTO  7190 
IF  SL3$  =  "Y"  GOTO  7190 
IF  MIX  =  1  AND  USAF$  <>  "Y"  GOTO  7115 
GOSUB  6680 
SSL  =  0 

IF  SL(J)  <  1  GOTO  7115 
IF  SL(J)  <=  2  GOTO  7355 
X  =  0 
GOTO  7285 
ASSIGN  ASL'S 


"  THEN 
7190 


GOTO  7190 


'SEE 

'SEE 

'SEE 


IF 

IF 

IF 


PREVIOUSLY  AN 
PREVIOUSLY  AN 
PREVIOUSLY  AN 


'FIND  CORRECT  WING 


'DONE  ASSIGNING  SL  S. 


••  Y** 
II Y  *• 
H  Y  •* 


GOTO 

GOTO 

GOTO 


7190 

7190 

7190 


IF  ASL1$  = 

IF  ASL2$  = 

IF  ASL3$  = 

GOSUB  6680 
SSL  =  1 

IF  ASL(J)  >=  1  GOTO 
FOR  XI  =  1  TO  MU% 

IF  ASL(Xl)  =  0  GOTO  7165 
GOTO  7190 


7175 


7165 

NEXT  XI 

7170 

GOTO  7195 

7175 

IF  ASL(J)  <= 

2  GOTO  7355 

7180 

X  =  1 

7185 

GOTO  7285 

7190 

NEXT  SSI 

7195 

REM  -  ALL  SL'S  AND 

ASL'S  ASSIGNED 

7200 

ARFLAG$  =  "Y" 

7205 

RETUPi^ 

7210 

REM  ********** 

UPDATE  STUDENT  RECORDS 

7215 

IF  SL(J)  <  1  GOTO 

7245 

7  2  20 

IF  MIX  =  1  THEN 

LSET 

SL1$  =  "Y" 

7225 

IF  MIX  =  2  THEN 

LSET 

SL2$  =  "Y" 

7230 

IF  MIX  =  3  T!IEN 

LSET 

SL3$  =  "Y" 

7235 

IF  MIX  >=4  THEN 

LSET 

SLX$  =  "Y" 

7240 

GOTO  7270 

7245 

REM  UPDATE  ASL 

7250 

IF  MIX  =  1  THEN 

LSET 

ASL1$  =  "Y" 

7255 

IF  MIX  =  2  THEN 

LSET 

ASL2$  =  "Y" 

7260 

IF  MIX  =  3  THEN 

LSET 

ASL3$  =  "Y" 

7265 

IF  MIX  >=4  THEN 

LSET 

ASLX$  =  "Y" 

•kitiric'kit'kirifit-k-kit'kitit'kitir 


7270 

7275 

7280 

7285 

7290 

7295 

7300 

7305 


PUT 

PUT 

RETURN 

REM 


#4, SI 
#5.31 


********* 


*********** 


SL/ASL  CHECK  FOR  SOMEONE  ALREADY  THERE 
COSUB  6580  'RANDOMLY  ASSIGN 

IF  TRONS  >  1  THEN  PRINT  "J,PS,TSEM  "  ; J , PS , TSEM , SI 


IF  SEMI ( J, PS, 0, 0) 
JJ  =  J 


>  X  GOTO  7290 


'ALREADY  SOMEONE  THERl 


7315 

7320 

7325 

7330 

7335 

7340 

7345 

7350 

7355 

7360 

7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7490 

7495 

7500 

7505 

7510 

7515 

7520 

7525 

7530 

7535 

7540 

7545 

7550 

7555 

7560 

7565 

7570 


GOSUB  6765  'CHECK  ON  CONSTRAI  M’l’S 

IF  SASN$  =  "N"  GOTO  7290  'TRY  AGAIN 

IF  SL(J)>0  THEN  ASG$="SL"  ELSE  ASG$="ASL" 

GOSUB  7210  'UPDATE  RECORDS 

IF  TRONS  >  0  THEN  PRINT  "ASSIGNING  ";SNAME$;"  #  =";SI;"  AS 

IF  TRONS  >  0  THEN  PRINT  ASG$;"  FOR  SEMINAR  =  ";TSEM 

IF  SL(J)  >  0  THEN  SL(J)  =  SL{J)-1  ELSE  ASL(J)  =  ASL(J)-1 

GOTO  7190  'NEXT  RECORD 

FOR  LY  =  1  TO  NS 

LX  =  LY;  IF  MS  =  ( FS  +  LX  -1 )  THEN  LX  =  NS  +  1 
IF  SEMI(J,LX,0,0)  >  X  GOTO  7400 
TSEM  =  FS  +  LX  -  1 
JJ  =  J 
KK  =  LX 

GOSUB  6765  'CHECK  PREV  CLASSMATES 

IF  SASN$  =  "N"  GOTO  7400 
GOTO  7330 


NEXT  LY 

REM  -  A  SLOT  IS  LEFT  BUT  INDIVIDUAL  CANNOT  FILL  IT 

IF  SSL  =  0  THEN  GOTO  7115  'TRY  TO  USE  AS  ASL 

GOTO  7190 


REM 

REM 


itititirliilititifititilififit 
ititiiitii'kitiiitltiiiiititit 

PRINT  TAB ( 10) ; "POSTING 
IF  RULE$(6)  =  "X"  GOTO 
IF  RULE${6)  -  "D"  GOTO 
FOR  SSI  =  1  TO  STDNT 
SI  =  SSI 
GET  #4, SI 
GET  #5, SI 

IF  10$  <>  "Y"  GOTO  7485 
GOSUB  6720 
GOSUB  6195 


END  CHECK 
POST  10 'S 
10 'S" 

7490 

7490 


'NO  lO'S  THIS  MIX 
'REASSIGN  LIKE  OTHERS 


'NOT  AN  10 

'FIND  RIGHT  SEMINAR 

'UPDATE  STATS 


IF  TRONS  >  0  THEN  PRINT  "ASSIGN  10  ";SNAME$;"TO  ";TSEM 


NEXT  SSI 
RETURN 

REM  ********  POST  OR  ASSIGN  ARl/SOS  *************************** 

SA  =  0 

PRINT  TAB( 10) ; "ASSIGNING  ARl/SOS  STUDENTS" 

IF  RULE$(4)  =  "D"  AND  RULE${5)  =  "D"  GOTO  7685  'TREAT  LIKE  OTHERS 
IF  RULE$(4)  =  "D"  OR  RULE$(5)  =  "D"  THEN  SA  =  1 
ARI  =  STAT(17,0,0) 

FOR  SSI  =  1  TO  STDNT 
SI  =  SSI 

IF  ARI  <  1  GOTO  7685  'DONE 

GET  #4, SI 
GET  #5, SI 
GOSUB  6680 

IF  ARI$  =  "Y"  OR  SOS$  =  "Y"  THEN  GOTO  7560  ELSE  GOTO  7670 
GOSUB  6720 

IF  TSEM  >  0  THEN  GOTO  7605 

IF  ARI$  =  "Y"  AND  RULE$(4)  =  "D"  THEN  GOTO  7585 
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7575 

7580 

7585 

7590 

7595 

7600 

7605 

7610 

7615 

7620 

7625 

7630 

7635 

7649 
7645 

7650 
7655 
7660 
7665 
7670 
7675 
7680 
7685 
7690 
7695 
7700 
7705 
7710 
7715 
7720 
7725 
7730 
7735 
7740 
7745 
7750 
7755 
7760 
7765 
7  7  70 
7775 
7780 
7785 
7790 
7795 
7800 
7805 
7810 
7815 
7820 
7825 


IF  SOS$  =  "Y”  AND  RULE$(5)  =  "D"  THEN  GOTO  7585 
GOTO  7615 

IF  SA  =  1  GOTO  7670  ' DONT  ASSIGN  YET 

GOSUG  6580  'ASSIGN  TSEM 

IF  STAT(17, JJ,KK)  >=  ALOT ( 1 7 , JJ ,  KK )  THEN  GOTO  7590 
GOTO  7645 

IF  TRONS  >  0  THEN  PRINT  SNAME$;"  ALREADY  ASSIGNED  TO  ";TSEM 
GOTO  7670 

IF  MIX  >  1  THEN  TSEM  =  VAL(MIX1$):  GOTO  7640 
FOR  I  =  1  TO  NS 

IF  STAT(17,J,I)  =  0  AND  STAT(0,J,I)  <  4  THEN  GOTO  763  5 
NEXT  I 

TSEM  =  FS  +  I  -  1 

GOSUB  6750  'FIND  OFFSET 

GOSUB  693  5  'LSET  MIX?  &  REC  STAT; 

GOSUB  7270  'WRITE  OUT  RECORD 

API  =  ARI  -  1 

IF  TRONS  >  0  THEN  PRINT  "ASSIGN  ";SNAME$;"  TO  ";TSEM 
IF  ARI  <  1  GOTO  7675 


GOTO  7525 


*  ir  *  *  #  v> 


NEXT  SSI 
PRINT 

IF  SA  =  1  THEN  SA  =  0: 

RETURN 

REM  ***********  SKILLS  SELECTION  SUBROUTINE 

EX  =  0:  LC  =  0:  LCC  =  0;  NCC  =  0 
GOSUB  6720 
CQ  =  0 

IF  TSEM  >  0  GOTO  8105 
GOSUB  6680 
COSUD  6580 

IF  STAT(0, JJ,KK)  >=  ALOT(0, JJ,KK)  GOTO  7720  'ALREADY  FILLED 
CC  =  CQ  +  1 

IF  CQ  >  30  THEN  CQ  =  0:  GOTO  7805 

IF  STATdR,  JJ,KK)  >=  ALOT  ( IR,  JJ ,  KK  ) +EX  GOTO  7720  'ALREADY  FILl 


'ALREADY  ASSIGNED 
'FI‘'D  WING  DATA 
'ASSIGN  TO  TSEM 


GOSUB  6765 

IF  SASN$  =  "Y"  GOTO  7775 
CP  =  CP  +  1 
IF  SWC  =  1  GOTO  8065 
IF  CP  >  10  GOTO  7805 
GOTO  7720 
GOSUB  7270 


IR= 
KK=" ;KK; 


'CHECK  RESTRICT/UPDATl 
'ASSIGN  THIS  SEMINAR 
'MUM  OF  BAD  TRIES 
'EXCH  DID  NOT  WORK 
'EXCHANGE  STUDENTS 
' REASSIGN 
'WRITE  OUT  RECORD 
IR; "ASSIGNED  TO  SEM  ";TSEM 
..  STAT="  ;  STATdR,  JJ,  KK  )  ; 


IF  TRONS  >  0  THEN  PRINT  SNAME$;SI;" 

IF  TRONS  >  1  THEN  PRINT  "J=";JJ;" 

IF  TRONS  >  1  THEN  PRINT  "  ALOT=" ; ALOT ( IR, JJ , KK ) ; "  CP=";CP 

IF  SWC  =  1  GOTO  7805 

GOTO  8105 

REM  -  TRY  EXCHANGING  STUDENTS  ALREADY  ASSIGNED 
IF  SWC  =  1  GOTO  8030 
IF  SWC  >  1  GOTO  7950 
FOR  III  =  1  TO  NS 

SS  =  SEMI (JJ, 111,0,0)  - 


LCC 


7830 

IF 

SS 

<  = 

2  GOTO  7950  'ONLY  SL/ASL  ASSIGNED 

7835 

SR 

3EMI(JJ,III,SS,0)  'GET  LAST  ASSIGNED  STU 

7840 

GET 

#4,  SR 

7845 

GET 

#5, SR 

7850 

10 

IR 

1  AND  COMM$  =  "Y”  THEN  GOTO  7985 

7855 

IF 

IR 

2  AND  PPDS$  =  "Y"  THEN  GOTO  7985 

7860 

TF 

IR 

= 

3  AND  TOPS?  =  "Y"  THEN  GOTO  7985 

7865 

IF 

IP 

•- 

4  AND  SOPS?  =  "Y"  THEN  GOTO  7935 

7870 

IF 

IR 

- 

5  AND  ACQLOG?  =  "Y"  THEN  GOTO  7985 

7875 

IF 

IR 

= 

6  AND  PILOT?  =  "Y"  THEN  GOTO  7985 

7880 

IF 

IR 

= 

7  AND  NAV?  =  "Y"  THEN  GOTO  7985 

7885 

IF 

IR 

= 

8  AND  SING?  =  "Y"  THEN  GOTO  7985 

7890 

IF 

IR 

= 

9  AND  AFA?  =  "Y"  THEN  GOTO  7985 

7895 

IF 

IR 

= 

10  AND  ARMY?  =  "Y"  THEN  GOTO  7985 

7900 

IF 

IR 

11  AND  RES?  =  "Y"  THEN  GOTO  7985 

7905 

IF 

IR 

= 

11  AND  NAVY?  =  "Y"  THEN  GOTO  7985 

7910 

IF 

IR 

= 

12  AND  RACE?  =  "Y"  THEN  GOTO  7905 

7915 

IF 

IR 

= 

13  AND  FEM?  =  "Y"  THEN  GOTO  7985 

7920 

IF 

IR 

= 

14  AND  RNK?  =  "Y"  THEN  GOTO  7985 

7925 

IF 

IR 

= 

15  AND  NOLINE?  =  "Y"  THEN  GOTO  7985 

7930 

IF 

IR 

= 

16  AND  HORG?  =  "Y”  THEN  GOTO  7985 

7935 

IF 

IR 

= 

17  AND  ARI?  =  "Y"  THEN  GOTO  7985 

7940 

IF 

IR 

= 

18  AND  NOED?  =  "Y"  THEN  GOTO  7985 

7945 

IF 

IR 

= 

0  GOTO  7985 

7950 

7955 

NEXT  III 
LC  =  LC  + 

1; 

IF  LC<=  1  GOTO  7980 

7960  IF  IR  =  0  OR  IR  -  6  OR  IR  =  7  THEN  LCC  =  LC  -  1  ELSE  LC  =  LC  +  1 

7965  IF  NCC  >  1  THEN  RULES  (9)  =  STR$  (VAL(  RULES  (  9  )  ) +1  )  :  PCF  =PCF+1 :  LC=0 :  NCC=0 

7970  IF  LC  >  2  THEN  EX  =  EX  +  1 :  LCC  =  LCC-2:  NCC  =  NCC  +  1 

7975  IF  LCC  <  0  THEN  LCC  =  0 

7960  GOTO  7820 

7985  REM  -  SWAP  SI  &  RS  - 

7990  IF  TRONS  >  0  THEN  PRINT  "EXCHANGING  ";SIr"  FOR  ";SR 

7995  PS  =  III;  KK  =  III;  JJ  =  J 

8000  TH  =  SI;  SI  =  SR 

8005  GET  #4, SI;  GET  #5, SI 

8010  SWC  =  1;  TSEM  =  FS+III-1 


8015  GOSUB  6065  ‘REMOVE  SR  FROri  SEM 

8020  SI  =  TH;  GET  #4, SI;  GET  #5, SI 

8025  GOTO  7745  ‘TRY  SI  IN  SR'S  SLOT 

8030  REM - NOW  FIND  A  PLACE  FOR  THE  GUY  YOU  REPLACED - 


8035  SWC  =  2 

8040  SI  =  SR 

8045  CP  =  0 

8050  GET  #4, SI 

8055  GET  #5, SI 


8060  GOTO  7720  'TRY  REASSIGN  TO  VACi'NT 

8065  REM - DID  NOT  FIT  TRY  SOMEONE  ELSE - 


8070  TH  =  SI;  SI  =  SR 
8075  GET  #4, SI;  GET  #5, SI 

8080  KK  =  III 
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8085 
8090 
8095 
8100 
8105 
8110 
8115 
•  8120 
8125 
8130 
'  8135 
8140 
8145 
8150 
8155 
8160 
8165 
8170 
8175 
0180 
8185 
8190 
8195 
8200 
8205 
8210 
8215 
8220 
8225 
8230 
8235 
8240 
8245 
8250 
8255 
8260 
8265 
8270 
■  8275 
8280 
8285 
'  8290 
8295 
8300 
8305 
8310 
8315 
8320 
8325 
8330 
8335 


IF  TRONS  >  0  THEN  PRINT  "DIDNT  WORK  -  REINSERT  ";SNAME$;SR 
GOSUB  6195 

SI  =  TH;  GET  #4, SI;  GET  #5, SI 
GOTO  7950 
SWC  =  0 
RETURN 


REM  *****************  assign  REMAINING  STUDENTS  ***************** 

IF  RULE$(RL)  =  "D"  THEN  GOTO  8295 


•klrititititltirit 


NP  =  STAT(IR,0,0) 

IF  TRONS  >  0  THEN  PRINT 
ARFLAG$  =  "N" 

FOR  SSI  =  1  TO  STDNT 
SI  =  SSI 
GET  #4, SI 
GET  #5, SI 


•ASSIGNING  REMAINING 


RL$ 


IF 

IR 

S 

0 

THEN 

GOTO  8255 

IF 

IR 

= 

1 

AND 

COMM$  <>  ••Y 

IF 

IR 

= 

2 

AND 

PPDS$  <>  ••Y 

IF 

IR 

3 

AND 

TOPS$  <>  ••Y 

IF 

IR 

= 

4 

AND 

SOPS$  <>  "Y 

IF 

IR 

= 

5 

AND 

ACCLOG$  <> 

IF 

IR 

s; 

6 

AND 

PILOT$  <>  ••■ 

IF 

IR 

S5 

7 

AND 

NAV$  <>  •" 

IF 

IR 

= 

8 

AND 

SING$  <> 

IF 

IR 

9 

AND 

AFA$  <> 

IF 

IR 

= 

10 

AND 

ARMY$  <>  ••’ 

IF 

IR 

= 

11 

AND 

NAVY$  =  ••Y 

IF 

IR 

35 

11 

AND 

RES$  <>  ••Y 

IF 

IR 

= 

12 

AND 

RACE$  <> 

IF 

IR 

13 

AND 

FEM$  <> 

IF 

IR 

= 

14 

AND 

RNK$  <> 

IF 

IR 

= 

15 

AND 

NOLINE?  <> 

IF 

IR 

= 

16 

AND 

HORG?  <> 

IF 

IR 

= 

18 

AND 

NOED?  <> 

GOSUB 

6680 

GOSUB 

6720 

THEN  GOTO  8290 


•'  THEN  GOTO  8290 
"y  THEN  GOTO  8290 
Y"  THEN  GOTO  8290 
Y"  THEN  GOTO  8290 
"Y"  THEN  GOTO  8290 
"Y"  THEN  GOTO  8290 
Y"  THEN  GOTO  8290 


•'  THEN  GOTO  8290 
"Y"  THEN  GOTO  8290 
"Y"  THEN  GOTO  8290 
"Y"  THEN  GOTO  8290 


"Y"  THEN  GOTO  8290 
••V-"  then  GOTO  8290 


Y 

Mvrfi 


Y”  THEN  GOTO  8290 


FIND  WING  DATA 

GOTO  828! 


IF  TSEM  >  0  THEN  PRINT  SNAME$ ; "ALREADY  ASS IGNED" ; TSEM ; 

IF  RULE$(RL)  =  "A"  THEN  EX  =  0  ELSE  EX  =  1 

=  "Z"  THEN  EX  =  3 

•ASSIGN  SKILLS  ROUTINE 

IF  NP  <  1  GOTO  8295 


IF  RULE$(RL) 
GOSUB  7700 
MP  =  NP  -  1; 
NEXT  SSI 
RETURN 

ARFLAG$  =  "Y" 


REM  *****************  FINISHED  ********************************* 

CLOSE  #2 

OPEN  "I",  #2,  "F:SMSERROR.DAT^^ 

FOR  1=1  TO  200 

IF  E0F(2)  GOTO  8345 
INPUT  #2,  TMP$ 

PRINT  TMP$ 


89 


8340  NEXT  I 
8345  SFLG  =  1 
8350  CLOSE 

8355  CHAIN  "SMSSMIXO" 
8360  END 


nsoo  REM 

85C5  REM  ********************************************************************** 

8510  REM  **  * 

8515  REM  **  PROGRAM  NAME*  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS)  * 

8520  REM  **  FILE  NAME:  SMSSMIXO.BAS  DATE:  19  FEB  1986  AM  • 

8525  REM  **  FUNCTION:  OUTPUT  RESULTS  IN  ASCII  TO  CONDOR  * 

8530  REM  **  COMPUTER:  ZENITH  120  LANGUAGE:  BASIC  * 

8535  REM  **  AUTHOR:  KEN  RITCHHART  * 

8540  REM  **  * 

8545  REM  ********************************************************************** 
8550  DIM  RULE$(22),  WING$(5,6),  STAT ( 18, 5, 12 ) ,  SL{12),  ASL{12) 

8555  DIM  SEMI(5,12,15,3),  ALOT ( 18 , 5 , 12 ) 

8560  COMMON  MIX,  SFLG,  WING$(),  STAT(),  SEMI(),  RULE$(),  FLE$,  TRONS,  MU%,  SU% 
8565  CLS:  PRINT  TAB ( 25 ); "SMSS  OUTPUTING  MIX  TO  CONDOR":  PRINT:  PRINT 


8570 

REM  ******** 

PROCESS  STUDENTS 

********************* 

8575 

STDNT  = 

STAT(0,0, 

0) 

8580 

OPEN 

"0" , 

#1. 

"F:BASICOT" 

8585 

OPEN 

"R", 

#4, 

"F:SMSTDNT1. 

DAT" 

8590 

OPEN 

"R", 

#5, 

"F:SMSTDNT2. 

DAT" 

8595  FIELD  #4,  27  AS  SNAME$,9  AS  SSN$,4  AS  STN$,6  AS  DOR$,2  AS  MIX1$,2  AS  MIX2$ 
2  AS  MIX3$,2  AS  MIXX$,1  AS  AWING$,1  AS  USAF$,1  AS  NOED$,l  AS  HORG$,l  AS  PILOT?,, 
AS  NAV$,1  AS  SING$,1  AS  AFA$,1  AS  NAVY$,1  AS  ARMY$,1  AS  RES$,1  AS  RACE$,1  AS  Fj 
M$, 1  AS  RNK$ 

8600  FIELD  #5,1  AS  NOLINE?, 1  AS  SRPME?,1  AS  TOPER?, 1  AS  COMM?,l  AS  TOPS?,l  AS  S 
PS?,1  AS  PPBS?,1  AS  ACQLOG?,!  AS  SL1?,1  AS  SL2?,1  AS  SL3?,1  AS  SLX?,1  AS  ASLl$, 
AS  ASL2?,1  AS  ASL3?,1  AS  ASLX?,1  AS  SOS?,l  AS  ARI?,1  AS  SRO?,l  AS  CC?,1  AS  10? 
6  AS  PAFSC?  I 

8605  KO  =  1:  PRINT  "  OUTPUTING 
8610  FOR  SSI  =  1  TO  STDNT 

8615  IF  SSI/10  >-  KO  THEN  PRINT  KO  =  KO  +  1 

8620  SI  =  SSI 

8625  GET  #4, SI:  GET  #5, SI 

8630  OTREC?  =  CHR? ( 34 ) +SNAME?+CHR? ( 34 ) " 

8635  OTREC?  =  OTREC?+CHR? { 34 ) +SSN?+CHR? { 34 ) +  "  ,  " 

8640  OTREC?  =  OTREC?+CHR? ( 34 ) +STN?+CHR? ( 34 ) +"  ,  " 

8645  OTREC?  =  OTREC?+CHR? ( 34 )+DOR?+CHR? ( 34 ) +" , " 

8650  OTREC?  =  OTREC?+CHR?  {  34  ) +MIX1?+C11R?  (  34  ) +"  ,  " 

8655  OTREC?  =  OTREC?+CHR? ( 34 ) +MIX2?+CHR? ( 34 ) +" , " 

8660  OTREC?  =  OTREC?+CHR? ( 34 ) +MIX3?+CHR? ( 34 ) +" , " 

8665  OTREC?  =  OTREC?+CHR? ( 34 )+MIXX?+CHR? ( 34 ) " 

8670  OTREC?  =  OTREC?+CH' ? ( 34 ) +AWING?+CHR? ( 34 ) +" , " 

8675  OTREC?  =  OTREC?+C;..’(?  (  34  ) +USAF?+CHR?  04  ) " 

8680  OTREC?  =  OTREC?+CHR? ( 34 ) +NOED?+CHR? ( 34 ) +" , " 

8685  OTP.EC?  =  OTREC?+CHR?  (  34  ) +HOPG?+CHR?  (  34  ) +"  ,  " 

8690  OTREC?  =  OTREC?+CHR? ( 34 ) +PILOT?+CHR$ ( 34 ) +"  ,  " 

8695  OTREC?  =  OTREC?+CHR? ( 34 ) +NAV?+CHR? { 34 ) " 

8700  OTREC?  =  OTREC?+CHR?(34)+SING?+CHR?(34)+", " 

8705  OTREC?  =  OTREC?+CHR? ( 34 )+AFA?+CHR? ( 34 ) " 

8710  OTREC?  =  OTREC?+CHR?(34)+NAVY?+CHR?(34)+", " 

8715  OTREC?  =  OTREC?+CHR? ( 34 ) +ARMY?+CHR? ( 34 ) " 

8720  OTREC?  =  OTREC?+CHR? ( 34 )+RES?+CHR? ( 34)+" , " 

872  5  OTREC?  =  OTREC?+CHR? ( 34 ) +RACE?+CHR? ( 34 ) +"  ,  " 

8730  OTREC?  =  OTREC?+CHR? ( 34 ) +FEM?+CHR? { 34 ) +" , " 


8735 

8740 

8745 

8750 

8755 

8760 

8765 

8770 

8775 

8780 

8785 

8790 

8795 

8800 

8805 

8810 

8815 

8820 

8825 

8830 

8835 

8840 

8845 

8850 

8855 

8860 

8865 

8870 

8875 


OTRi:C$  =  OTPEC$+CnR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR${ 
OTREC$  =  OTREC$+CHR$( 
OTP.EC$  =  OTREC$+CHR$( 
OTRE(:$  =  OTREC$+CHP$( 
OTREC$  =  OTREC$+CHR$( 
OTPEC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CnR$( 
OTREC$  =  0TREC$+C{1R$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTREC?  ~  OTREC$+CHR$( 
OTPEC$  =  OTREC$+CHR$( 
OTREC$  =  OTREC$+CHR$( 
OTPEC$  =  OTREC$+CHR$( 
PRINT  #l,OTREC$ 

NEXT  SSI 

PRINT  #1,CHR${26) 

CLOSE 

CHAIN  "SMSS" 

END 


34)+RMK$fCHR${34)+", 
34 ) +NOLINE$+CHR$ ( 34 ) 
34)+SRPME$+CHR$ (34)+ 
34 ) +TOPPER$+CHR$ ( 34 ) 
34 ) +COMM$+CHR$ ( 34 ) +" 
34 )+SOPS$+CHR$ (34)+" 
34)+TOPS$+CHR$(34)+" 
34)+PPBS$+CHR$( 34)+" 
34 )+ACOLOG$+CHP$ ( 34 ) 
34)+SLl$+CHR?( 34)+"  , 
34)+SL2$+CHR$(34)  +  "  , 
34)+SL3$+CHR$(34)+", 
34 ) +SLX$+CKR$ ( 34 ) +"  , 
34)+ASLl$+CHR$(34)+" 
34)+ASL2$+CHR$(34)+" 
34)+ASL3$+CHR$(34)+" 
34 ) +ASLX$+CHR$ ( 34 ) +" 
34 ) +SOS$+CHR$ ( 34 )+" , 
34)+ARI$+CHR$(34)+"  , 
34 ) +SRO$+CHR$ ( 34 ) +"  , 
34)+CC$+CHR$(34 )  +  ",  " 
34)+IO$+CHR$(34)+",  " 
34)+PAFSC$+CHR$(34) 
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0900  REM 


8905 
8910 
8915 
8920 
8925 
8930 
8935 
8940 
8945 
8950 
8955 
8960 
8965 
8970 
8975 
8980 
8985 
8990 
8995 
2  AS 
AS 


’k  k 

kk 

PROGRAM  NAME 

kk 

FILE  NAME; 

k  k 

FUNCTION; 

k  k 

COMPUTER ; 

kk 

k  k 

AUTHOR; 

STUDENT  MIX  SOFTV/ARE  SYSTEM  (SMSS) 

SMSSUPDT.RAS  DATE;  18  FEB  1986  AM 

UPDATE  THE  MANUAL  CHANGES  TO  STAT  &  SEMI  ARRAYS 


ZENITH  120 
KEN  RITCHHART 


LANGUAGE;  BASIC 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM  ********************************************************************* 

DIM  TEMPIN$(44),  ALOT ( 1 8 , 5 , 1 2  ) 

DIM  WING${5,6),  STAT(18, 5, 12),  SEMI ( 5 , 1 2 , 1 5 , 3 ) ,  RULE$(22) 

COMMON  MIX,  SFLG,  WING$(),  STAT(),  SEMI ( ) ,  RULE$(),  FLE?, 

CLS;  PRINT  "  REGISTERING  MANUAL  CHANGES  TO 

GOSUB  9430 

REM  ********  PROCESS  INPUT  DATA  ******************* 

OPEN  "I",  #3,  "F;BASICIF." 

OPEN  "R",  #4,  "F;SMSTDNT1.DAT'' 

OPEN  "R",  #5,  "F; SMSTDNT2.DAT" 

FIELD  #4,  27  AS  SNAME$,9  AS  SSN$,4  AS  STN$,6  AS  DOR$,2  AS  MIX1$,2  AS  MIX21 


TRONS,  SU%,  MU% 
SEMINARS";  PRIN' 


MIX3$,2  AS  MIXX$,1  AS  AWING $,1  AS  USAF$,1  AS  NOED$,l  AS  HORG$,l  AS  PILOTS, 
NAV$,1  AS  SINGS, 1  AS  AFAS.l  AS  NAVYS.l  AS  ARMYS,1  AS  RESS,1  AS  RACES, 1  AS  ] 


MS, 1  AS  RNKS 

9000  FIELD  #5,1  AS  NOLINES,!  AS  SRPMES,!  AS  TOPERS,!  AS  COMMS,l  AS  TOPSS,l  AS  ! 
PS$,1  AS  PPBSS,1  AS  ACQLOGS,!  AS  SL1S,1  AS  SL2S,1  AS  SL3S,1  AS  SLXS,1  AS  ASLIS, 
AS  ASL2S,1  AS  ASL3S,1  AS  ASLXS,1  AS  SOSS,l  AS  ARIS,1  AS  SRO$,l  AS  CCS,1  AS  10! 
6  AS  PAFSCS 

9005  KO  =  1;  PRINT;  PRINT  "READING 
9010  FOR  KS  =  1  TO  600 

9015  IF  KS/10  >=  KO  THEN  PRINT  KO  =  KO  +  1 


9020 

STDNT  = 

=  SI 

9025 

FOR  J  : 

=  1  TO 

44 

9030 

IF 

EOF  (3)  THEN  GOTO  9 

9035 

INPUT  #3, 

TEMPIN?(J) 

9040 

NEXT  J 

9045 

LSET 

S NAMES 

=  TEMPIN?(1  ) 

9050 

LSET 

SSN$  = 

:  TEMPIN?(2) 

9055 

LSET 

STN$  = 

:  TEMPIN?(3) 

.  9060 

LSET 

DOR? 

=  TEMPIN?(4) 

9065 

LSET 

MIXl? 

=  TEMPIN?(5) 

9070 

LSET 

MIX2? 

=  TEMPIN?(6) 

907  5 

LSET 

MIX3$ 

=  TEMPIN?(7) 

9080 

LSET 

MIXX? 

=  TEMPIN?(8) 

9085 

LSET 

AWING? 

=  TEMPIN?(9) 

9090 

LSET 

USAF? 

=  TEMPIN?(10) 

9095 

LSET 

NOED? 

=  TEMPIN?(11  ) 

9100 

LSET 

HORG? 

=  TEMPIN?(12) 

9105 

LSET 

PILOT? 

=  TEMPIN?(13) 

9110 

LSET 

NAV? 

=  TEMPIH?(14) 

9115 

LSET 

SING? 

=  TEMPIN?(15) 

9120 

LSET 

AFA? 

=  TEMPIN?(16) 

9125 

LSET 

NAVY? 

=  TEMPIN?U7) 

9130 

LSET 

ARMY? 

=  TEMPIN?(18) 
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9135 

LSET 

RES$ 

=  TEMPIN$(19) 

9140 

LSET 

RACE$ 

=  TEMPIN$(20) 

9145 

LSET 

FEM$ 

=  TEMPIN$(21) 

9150 

LSET 

RNK$ 

=  TEMPIN$(22) 

9155 

LSET 

NOLINE$ 

=  TEMPIN$(23) 

9160 

LSET 

SRPME$ 

=  TEMPIN$(24) 

9165 

LSET 

TOPPER$ 

=  TEMPIN$(25) 

9170 

LSET 

COMM$  = 

=  TEMPIN$(26) 

9175 

LSET 

SOPS$  = 

=TEMPIN$(27) 

9180 

LSET 

TOPS$  = 

TEMPIN$(28) 

9185 

LSET 

PPBS$  = 

TEMPIN$(29) 

9190 

LSET 

ACCL0G$= 

=TEMPIN${30) 

9195 

LSET 

SL1$  = 

TEMPIN$(31 ) 

9200 

LSET 

SL2$  = 

TEMPIN$(32 ) 

9205 

LSET 

SL3$  = 

TEMPIN${33) 

9210 

LSET 

SLX$  = 

TEMPIN$(34) 

9215 

LSET 

ASL1$  = 

TEMPIN$(35) 

9220 

LSET 

ASL2$  = 

TEMPIN$(36) 

9225 

LSET 

ASL3$  = 

TEMPIN$(37) 

9230 

LSET 

ASLX$  = 

TEMPIN$(38) 

9235 

LSET 

SOS$  = 

TEMPIN$(39) 

9240 

LSET 

ARI$  = 

TEMPIN$(40) 

9245 

LSET 

SR0$  = 

TEMPIN$(41 ) 

9250 

LSET 

CC$  = 

TEMPIN$(42) 

9255 

LSET 

10$ 

TEMPIN$(43) 

9260 

LSET 

PAFSC$= 

TEMPIN$(44) 

9265 

IF  10$  =  "Y" 

AND  RULE$(6)  = 

9270 

REM  *****  RECORE 

)  SCHOOL  OVERALL 

9275 

JJ  = 

0 

9280 

KK  = 

0 

9285 

GOSUE 

!  9595 

9290 

IF 

’  AWING$ 

=  •'  '•  GOTO  9335 

9295 

REM  *** 

POST  WING  STATI; 

9300 

FOR  J  = 

=  1  TO  MU% 

9305 

IF 

;^WING$  <>  WING$ 

9310 

JJ  =  J 

9315 

KK  =  0 

9320 

GOSUB  9595 

9325 

GOTO  9335 

9330 

NEXT  J 

9335 

SI 

=  SI 

+  1 

9340 

IF 

KS  > 

1  GOTO  9365 

9345 

IF  VAL(MIX1$) 

>  0  THEN  MIX  = 

9350 

IF  VAL(MIX2$) 

>  0  THEN  MIX  = 

9355 

IF  VAL(MIX3$) 

>  0  THEN  MIX  = 

9360 

IF  VAL(MIXX$) 

>  0  THEN  MIX  = 

9365 

GOSUB  9885 

9370 

GOSUB  9595 

9375 

PUT  #4, SI 

9380 

PUT  #5, SI 

93C5 

NEXT 

KS 

"X"  GOTO  9385 

STATISTICS  *************** 


It  It  it  it  ir 


GOTO  9330 


94 


9390  STDNT  =  SI 

9395  PRINT:  PRINT  "PROCESSED  IN  ";KS-1;"  STUDENTS  INTO  SMSS" 

9400  PRINT  STDNT;  "  STUDENT  RECORDS  &  STATISTICS  UPDATED  FROM  MANUAL  CHANGES" 
9405  STAT(0,0,0)  =  STDNT 
9410  REM  END  OF  DATA  INPUT 

9415  GOSUB  9750  'OUTPUT  STATS  TO  SMSS 

9420  GOTO  9865 
9425  PRINT:  PRINT 

9430  REM  *******  INITIALIZE  STAT  &  GET  RULES 
9435  PRINT  "INITIALIZING  "; 

9440  FOR  I  =  0  TO  18 

9445  PRINT 

9450  FOR  J  =  0  TO  5 

9455  FOR  K  =  0  TO  12 

9460  STAT(I,J,K)  =  0 

9465  NEXT  K 

9470  NEXT  J 

9475  NEXT  I 

9480  FOR  I  =  0  TO  5 

9485  FOR  J  =  0  TO  12 

9490  FOR  K  =  0  TO  15 

9495  FOR  L  =  0  TO  3 

9500  SEMI(I,J,K,L)  =  0 

9505  NEXT  L 

9510  NEXT  K 

9515  NEXT  J 

9520  NEXT  I 

9525  REM  *  RETRIEVE  SCHOOL  DATA  ** 

9530  OPEN  "I",  #1,  "F: SMSCHOOL.DAT" 

9535  INPUT  #1,  SCHOOL?,  MUNIT?,  SUNIT$,  MU%,  SU% 

9540  FOR  I  =  1  TO  MU% 

9545  INPUT  #1,  WING$(I,1),WING$(I,2),WING$(I,3),WING$(I,4),WING$(I,5), 

WING? (I, 6) 

9550  NEXT  I 

9555  CLOSE  #1 


9560  REM  ****  RETRIEVE  RULES  DATA  ****** 

9565  OPEN  "I",  #1,  "F:SMRULE.DAT" 

9570  FOR  I  =  1  TO  22 

9575  INPUT  #1,  RULE?(I) 

9580  NEXT  I 

9585  CLOSE  #1 

9590  RETURN 

9595  REM  **************  RECORD  STATISTICS  ******************************** 

9600  IF  JJ  <>  0  THEN  STAT ( 0 , JJ, 0 ) =STAT { 0 , JJ , 0 )  +  1 

9605  IF  KK  =  0  GOTO  9650 

9610  FOR  MM  =  1  TO  15 

9615  IF  SEMI(JJ,KK,MM,0)  <>  0  THEN  GOTO  9640 

9623  SEMI ( JJ,KK,MM, 0)=SI:  SEMI ( JJ , KK, 0, 0 ) =SEMI ( JJ, KK , 0, 0 ) +1 

96  2  5  SEMI(JJ,KK,MM, 1  )=VAL{MIX1? ) :  SEMI ( JJ , KK , MM, 2 )=VAL( MIX2 ?  1 

9630  SEMI (JJ,KK,MM, 3)=VAL(MIX3?) 

9635  GOTO  9650 

9640  NEXT  MM 

9645  STAT(0, JJ,KK)  =  STAT { 0 , JJ , KK )  +  1  I 


•TJ  r 
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9650 

9655 

9660 

9665 

9670 

9675 

96Cn 

9685 

9690 

9695 

9700 

9705 

9710 


IF  COMM$  =  "Y" 
IF  PPBS$  =  "Y" 
IF  TOPS?  =  "Y" 
IF  SOPS?  =  "Y" 
IF  ACQLOG?  ="Y" 
IF  PILOT?  =  "Y" 
IF  NAV?  =  "Y" 
IF  SING?  =  "Y" 
IF  AFA?  =  "Y" 
IF  ARMY?  =  "Y" 


THEN  STATd,  JJ,KK) 
THEN  STAT(2, JJ,KK) 
THEN  STAT(3, JJ,KK) 
THEN  STAT(4, JJ,KK) 
THEN  STAT( 5, JJ,KK) 
THEN  STAT(6, JJ,KK) 
THEN  STAT(7, JJ,KK) 
THEN  STAT{8, JJ,KK) 


9720 

9725 

9730 

9735 

9740 

9745 

9750 

9755 

9760 

9765 

9770 

9775 

9780 

9785 

9790 

9795 

9300 

9805 

9810 

9815 

9820 

9825 

9830 

9835 

9840 

9845 

9850 

9855 

9860 

9865 

9870 

9875 

9800 

9885 

9890 

9895 

9900 


IF  AFA?  =  "Y"  THEN  STAT  (  9 ,  JJ,  KK  )  = 

IF  ARMY?  =  "Y"  THEN  STAT { 10 , JJ, KK )  = 

IF  RES?  =  "Y"  OR  NAVY?=“Y"  THEM  STAT  ( 1 1 
IF  RACE?  =  "Y"  THEN  STAT ( 1 2 , JJ ,  KK ) 
IF  FEM?  =  "Y"  THEN  STAT { 1 3 , JJ , KK )  = 

IF  RNK?  =  "Y"  THEN  STAT ( 1 4 , JJ , KK )  = 

IF  NOLINE?  ="Y"  THEN  STAT ( 1 5 , JJ , KK )  = 
IF  HORG?  =  "Y"  THEN  STAT ( 16 , JJ , KK )  = 
IF  ARI?  ="Y"  OR  SOS?="Y"  THEN  STAT (17 
IF  NOED?  =  "Y”  THEN  STAT ( 18 , JJ , KK )  = 


FEM?  =  "Y" 
RNK?  =  "Y" 
NOLINE?  ="Y" 
HORG?  =  "Y" 


STATd 
STAT  (2 
STAT  (3 
STAT  (4 
STAT  (  5 
STAT  (  6 
STAT  (  7 
STAT  (8 
STAT  (9 
STAT( 
,  J  J ,  KK 
=  STAT 
STAT( 
STAT{ 
STAT  ( 
STAT( 
,  JJ,KK 
STAT( 


,JJ,KK)  +  1 
,JJ,KK)  +  1 
,JJ,KK)  +  1 
,JJ,KK)  +  1 
,JJ,KK)  +  1 
,jj,Kr)  +  1 
,JJ,KK)  +  1 
,JJ,KK)  +  1 
,JJ,KK)  +  1  • 

IO, JJ,KK)  +  1 

)  =  STATdl,  JJ,I-K)  +  1 
d2,JJ,KK)  +  1 

13, JJ,KK)  +  1 

14, JJ,KK)  +  1 

15, JJ,KK)  +  1 

16, JJ,F',K)  +  1 

)  =  STATd7,  JJ,  KK)  + 

IP, JJ,KK)  +  1 


RETURN 

REM  *★********★★** 


END  STATISTICS 


REM  **********  OUTPUT  STATISTICS 
PRINT  "  OUTPUTING  STATISTICS 

OPEN  "0",  #1,  "FzXTRIALl.DAT” 

FOR  I  =  0  TO  18 
PRINT 

FOR  J  =  0  TO  5 

FOR  K  =  0  TO  12 

PRINT  #1,  STAT (I, ^ 
NEXT  K 
NEXT  J 
NEXT  I 

FOR  I  =  0  TO  5 
PRINT 

FOR  J  =  0  TO  12 

FOR  K  =  0  TO  15 

FOR  L  =  0  TO  3 


STATd,  J,K) 


L  =  0  TO  3 

PRINT  #1,  SEMI(I,J,K,L) 


NEXT 
NEXT  K 
NEXT  J 
NEXT  I 
CLOSE 

RETURN 

******************* 


DONE 


CHAIN  "SMSS" 

END 

REM  ***********  find  CORRECT  WING  PERSON 

IF  MIX  =  1  THEN  TSEM  =  VAL(MIX1$) 

IF  MIX  =  2  THEN  TSEM  =  VAL(MIX2$) 

IF  MIX  =  3  THEN  TSEM  =  VAL(MIX3?) 


IS  ALREADY  ASSIGNED  TO  *** 


■  J* 


■rrr  mjr  Kn  HTT  w7\  VTFT\  ^TI  "81  FTT^TI  ^n'J 


9905 

IF  MIX 

>=4  THEN  TSEM  =  VAL(MIXX$) 

9910 

IF  TSEM 

=  0  THEN  GOTO  9970 

9915 

FOR  J  = 

1  TO  MU% 

9920 

IF 

AWING?  <>  WING$(J,1)  GOTO  9955 

9925 

FS  =  VAL(WING$(J,4)) 

'FIRST  SEMINAR  IN  WING 

9930 

LS  =  VAL(WING$(J, 5) ) 

'LAST  SEMINAR  IN 

WING 

9935 

MS  =  VAL(WING$(J,6) ) 

'MISSING  SEMINAR 

IN  WI^ 

9940 

NS  =  VAL{WING$(J, 2) ) 

'  #  SEMINARS  IN 

WING 

9945 

TS  =  STAT(0,J,0) 

'TOTAL  STUDENTS 

IN  WINC 

9950 

9955 

NEXT  J 

GOTO  9960 

9960 

JJ  =  J 

9965 

KK  =  TSEM  -  FS  +  1 

9970 

RETURN 

9975 

END 

